
IDES PROGRAMMES POUR VOTRE 
ORDINATEUR I APPLE ll et ll e . CASIO FX 702-R 
COMMODORE 64 ET VIC 20. GOUPIL .HEWLETT PACKARD 
HP41etHP75.ORIC1.SHARPPC1211,PC1251,PC1500,MZ80. 
SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS 
TI-99/4A. THOMSON T07. 

DEUX SUPER CONCOURS : 10000 francs de 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 

pour le meilleur logiciel CHAQUE TRIMESTRE. 



Edito 



Qui v a gagner le premier 
concours? Le suspense restera 
entier jusqu'au prochain nume- 
ro. Vous savez que nous prepa- 
rons le journal une semaine a 
I'avance, ainsi ['article que vous 
etes en train de lire a ete ecrit 
lundi dernier, rimprimeur en a 
pris possession mardi et a fabri- 
que le journal mercredt. Les 
NMPP (nouvelles rnessageries 
de la presse parisienne) ont recu 
les exemplaires de ce numero 
jeudi matin dans ieur depot cen- 
tral et la distribution s'est laite 
jeudi dans la nuit pour que ce 
matin, vendredi. en allant cher- 
cher vos croissants et votreQja- 
guette de pain, vous puissiez 
egalement acheter HEBDO- 
GIC1EL chez votre marchand de 
journaux prefere Tout cela pour 
vous dire que le premier vote se 
terminant seulement hier, le de- 
pouillement se fera aujourd'hui 
vendredi et pendant le week- 



end ; le gagnanl sera connu lun- 
di et, en reprenant le cycle deer it 
plus haut. vous ne saurez que 
vendredi prochain qui est I'heu- 
reux gagnant. Nous en prolite- 
rons egalement pour publier la' 
liste des lecteurs qui ont partici- 
pe a la redaction desquatre pre- 
miers numeros et nous Ieur en- 
verrons Ieur premier salaire de 
journaliste-pigiste. Sans oublier 
les prix offerts par la REGLE A 
CALCUL, DURIEZ, TEXAS et les 
1 calculatrices solaires CASIO. 
Pour ceux que les concours in- 
teressent, et ils sont nombreux. 
regarder en page centrale, vous 
allez pouvoir vous adonner a 
votre sport favori: la ville de 
Boulogne-Billancourt organise 
un concours de jeux de societe 
dote de nombreux prix Vous 
pouvez egalement gagner un 
magnetoscope avec les casset- 
tes LORICIEL sans (aire lr*moin- 
dre programme, it vous suffit 
d'aller jusqu'au bout du jeu 
d'aventures KIKEKANKOI. 
Beaucoup de lecteurs nous 
ecrivent en se plaignant de la 
diffrculte de trouver HEBDO- 



GICIEL chez les marchands de 
journaux. Nous envoyons deja 
des dizaines de milliers d'exem- 
plaires par I'intermediaire des 
NMPP chez tous les marchands 
de journaux de France et d'ail- 
leurs. Mais il est possible que 
votre distributeur ne receive pas 
un nombre sulfisant de journaux 
pour tous les lecteurs 
d'HEBDOGlClEL de son quar- 
tier Guy MUNEROL. par exem- 
ple. souflre toutes les semaines 
car il doit courir "comme un 
derate" a la sortie de son lycee 
pour s'emparer d'un des exem- 
plaires disponibles dans sa li- 
brairie preferee. II faut dire que 
la librairie en question ne recoit 
que trois exemplaires et, si elle 
est juste en face du lycee. les 
sorties de cours ne doivent pas 
etre tristes! 

Ecrivez-nous pour nous dire si 
vous avez ce genre de probleme. 
Avec les listings que nous four- 
nissent les NMPP. nous pouvons 
intervenir point de vente par 
point de vente et faire en sorte 
que vous puissiez toujours trou- 
Suite page 12 



Menu 



Vous enlilez voire djellaba, vous 
chaussez vos lunettes de soleil, 
vous laissez votre dromadaire 
au parcmetre et, avec votre 
FX 702 P, vous voila le Roi du Pe- 
trole. Louis-Marie R0C0UES 
vous propose PETRO $. Si ca ne 
marche pas, jetez votre FX 702 P 
et courrez acheter un TO 7. LE 
CHERCHEUR D'OR de Marie- 
Claude LIANDIER vous aidera 
peut-etre a (aire fortune. Ca a 
encore loupe ? une HP 75 et un 
coup de des ou, beaucoup 
mieux, un ZX 81 vite amorti avec 
Jean-Francois LICCIARDI et son 
logiciel "80URSE". Ca y est, 
vous etes plein aux as ? II va vous 
falloir attaquer la complabilil6 
avec Christian IUMG {MZ 80) et 
gerer vos depenses sur PC 1211 
(Joel LAMOTTE). Vos revenus 
bien geres, vous pouvez mainte- 
nant vous occuper de vos 
Joisirs: CHEVAL et PC 1500 par 
Elie ZAGURY. AUTO-CROSS 



(VIC 20 et Olivier TERRIER). 
Quelques jeux de societe pour 
se detendre : LES BONS COMP- 
TES FONT LES BONS AMIS par 
Olivier CAHEN sur COMMO- 
DORE 64. TIR MOTS pour SPEC- 
TRUM de Joel TARQUIN. Un peu 
d'inlormalique pour se mainte- 
nir en forme? AIDITEUR pour 
APPLE par Andre AIRY et 
ECRAN MAGIOUE de Philippe 
LAVAL pour TRS 80. 
Vous voila comble, blase peut- 
etre? Ou'a cela na tienne, cn- 
trons dans le mystere et la tolie : 
le (ou est sur son arbre et le m6- 
decin a la tronconneuse de 
R. LECOO essaic de le (aire des- 
cendre avec son GOUPIL. Don- 
jon myslerieux pour Tl 99. avec 
scorpions et oubliettes, par Ivan 
HARY Vous etes coince dans le 
chateau ?sautez dans leF97de 
Gilles OSMONT et jouez voire 
vie sur vos qualiles de pilote at- 
terrissant sur un porte-avions. 
Et si vous avez tout perdu, tentez 
encore une fois votre chance au 
JACK POT avec Pierre VIOLENT 
en T! BASIC elendu 

Suite page 12 



HIPPORE8US ; trouvez 1'expression qui se cache dans la B.D. de I'hippocampe. Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'informatique. 
(Solution page centrale). 



fAONTOUTESTSy^TEME DE 
RePERAGE: BIEN UTILE ... 




(N°6 



18 novembre 83 



) 



Allemagne 3.50 DM - Belgique 55 Frs - Canada 2,50 S - Luxembourg 57 Frs - Suisse 3 Frs ■ 



DES-ILLUSION 



L'ordinateur est un partenaire ideal por tous les jeux de exemple : 

hasard ; mfatigable. il risque pourtant de vous battre a Joueur A 

plate couture Hejeupresenteaujourd'hui est unjeude v tour: i" jet 
des assez simple, mais ne vous faites aucune illusion, 2* jet 

vous n'avez que tres peu de chance de gagner. Chaque 3 e jet 

partie se joue en 6 tours, le joueur qui a la main lance stop 

deux des. Le premier jet est tres important car le total Joueur 8 

obtenu va servir de reference pour la suite. En effet, le r r tour : i" jet 
joueur peut soit s'arreter et beneficier du capital de t jet 

points obtenus qui s'ajoute automatiquement a son 3' jet 

total de jej anterieur, soit continuer en lancant a nou- 4' jet 

veau les des. Si le total obtenu au nouveau jet est diffe- perdu 

rent de celut du premier jet, il peut poursuivre ; si il est Joueur a 

egal au premier jet, il perd son tour et tous les points 2* tour: 1" jet 
capitaiises du tour en cours. 2* jet 

Apres 6 tours, le joueur ayantle plus de points gagne la 3* jet 

partie. II vous faut etre a la fois prudent et audacieux, 4* jet 

ou tres fort en probabitites! 5* jet 

PERDU 



6 + 4— 10 reference 1" Ic 
5 + 3- 6 
1 +6-_7 
-5> 25 points acquis 



4 + 3- 
6+5- 



7 reference 1 



6 reference 2" tour 



1 + 5- 
6 + 3- 

1+6- 7 

6 + 6- 12 

3+3- 6 

-> 25 points acquis 



Ytf> 



75 



Joueur B 

2* tour 1*' jet 6 + 3 - 9 reference 2" tour 

2* jet 5 + 6-11 

STOP ~> 20 points acquis 
Joueur A 

3" tour: 1" jet 4 + 3- 7 reference 3* tour 

2* jet 1 + 2 - 3 

STOP -> 35 points acquis 
etc. 

Le programme est tres simple et n'utilise aucune 
astuce de programmation particuliere. II est en outre 
assez structure ce qui permettra de I'adapter a bon 
nombre d'autres machines. J'attire votre attention sur 
la ligne 3760 qui n'est pas tres honnete et que vous 
avez interet a supprimer si vous voulez gagner de 
temps a autre! 

B. RAGOT 



1899 PEN t»t**»******»»* 


1588 FOR .1=39 TO 18 STEP 


2178 L=8 


2658 DISP T3(8) 




Eb°V> 


1818 (FN 


-1 


2188 Tl(8)=8 


2668 BEEP 166,. 1 « HAIT 


K ^\ l/\-^*> 


O 


1928 REN DES-ILLUSIONS 
1838 PEN 


1599 DISP TflB(18>;T$,TA8 

(J)i-S • 

1689 BEEP 36«1.2*7..i 


2198 T2(8)=8 

2288 H=H»1 

2218 IF H=I4 THEN 3219 


1.5 

2678 REM ****** 

2689 REN JOUEUR 


^PA» 


/Z?V<-\ uUY^t>_ 


-C-' ), ^^^ 


IMS PEN Bernard G RACC 






1958 PEN 


1619 NEXT J 


2229 X=IHT(H/2) 


2698 REN ****** 


3199 DISP T3(I) 


3679 IF X=9 THEH C»="neu 


1968 PEN mwwtttHI 


1629 T»=TM"S" 


2239 GOSUB 3588 


2789 REH 


3199 BEEP 166,. 1 6 HAIT 


viene" 


1878 PEN 


1639 FOR J=38 TO 19 STEP 


2249 DISP *Je joue non ■ 


2719 J=l 


1.5 


3688 IF X=18 THEH C«="di 


1838 WIDTH 22 


-1 


iCt}' coup* 


2729 L=9 


3298 GOTO 2129 


xiene" 


1898 DELBY d 


1649 DISP TB6(16>;T$;TflE 


2258 BEEP 48,. 1 8 HAIT 1 


2739 Tl(l)=8 


3219 REH »««•*««**« 


3698 IF X=ll THEN C«=-on 


1188 PHISTH 24 


<J);-I " 


.5 


2748 T2(l)=6 


3229 REH SUITE ou FIN 


ziene" 


1118 HBRGIH 24 


1659 8EEP 39*1.2*8,. 1 


2268 Ul+1 


2758 H=N*1 


3239 REN ******«#***« 


3798 IE X=12 THEN CI="do 


1128 STANDBY OFF 


1669 NEXT J 


2278 X=L 


2768 IF H=14 THEH 3218 


3249 REN 


uziene" 


1139 BEEP ON 


1679 Tt=TttM- 


2288 GOSUB 3588 


2778 X=IHT(H/2) 


3259 DISP "C'est (ini .. 


3716 RETURN 


11*9 OPTION BASE 6 


1689 FOR J=38 TO 28 STEP 


2298 DISP -Non ";Ct," je 


2786 GOSUB 3586 




3728 REN lira« 


1159 PEN «•«•«.« 


-1 


t :'; 


2799 DISP -Tu Joues ton 


3269 BEEP 448,. 5 


3738 T=8 


1169 PEN T1TRSCE 


1698 DISP TB8(19>;T«;TBB 


2399 GOSUB 3729 


";C*;" coup" 


3278 HAIT 1.5 


3748 A=RHB»5tl 


1179 REN »>•»»«• 


(J);-0 " 


2319 JISP A;"t";B;"=";A» 


2899 BEEP 88.. 1 8 HflIT 1 


3288 IF T3(1))T3(8) THEH 


3758 B=RHDt5»l 


1188 REN 


1789 BEEP 36«1.2*9,.l 


B 


.5 


DISP "Bravo tu es le pi 


3768 IF J=8 AHD T=8 AHD 


1198 INTEGER J 


1718 HEXT J 


2329 BEEP 48,. 1 8 HflIT 1 


2818 1X»1 


us fort ..." 


A*B=T1<8) THEH T=l 6 COT 


1298 T*=" 


1729 T«=T«-0- 


.5 


2826 X=L 


3296 IF T3(I)=T3<8) THEH 


3748 


1219 FOP J=38 TO 18 STEP 


1738 FOR J=38 TO 21 STEP 


2338 IF L=l THEH GOSUB 3 


2838 COSUB 3588 


DISP "Nous sonnes ex-ae 


3778 RETURN 


-I 


-I 


788 


2846 DISP -Ton ";C*;" je 


quo ..." 


3786 REH ler jet ordinat 


1228 DISP TflB(18>,Tt;Tfl6 


1749 DISP TP8(19);I*jT0E 


2348 IF Lll THEH C0SU8 3 


% ■•; 


3388 IF T3(1XT3<8) THEH 


3796 Tl(6)=fltB 


(J)i-D " 


<J);"H • 


959 


2856 COSUB 3726 


DISP "Je suis vrainent 


3898 T2(8>=T1(8) 


1238 BEEP 38»1.2*8,.l 


1758 BEEP 36«l.2*18,.l 


2358 DISP "Total pour ce 


2866 DISP Hi'+-iBf='i(rt 


fort ..." 


3819 F«="n" 


1246 NEXT J 


1769 NEXT J 


jet :■; 


B 


3316 BEEP 448,. 5 


3828 P$="- 


1258 T»=TH"B" 


1779 Tt=T«-H- 


2368 DISP fl*6; 


2878 BEEP 88,. 1 6 HflIT 1 


3328 HAIT 4.5 


3838 IF TI<6)=2 THEH N=l 


1269 FOP J=38 TO 11 STEP 


1788 REN es»ace 


2379 DISP P* 


.5 


3339 DISP "Ton score :*i 


8 


-1 


1798 T»=T«- ■ 


2389 BEEP 49,. 1 8 KBIT 1 


2888 IF L=l THEH COSUB 4 


3349 DISP T3<l)i 


3846 IF Tl<8)=3 THEH H=8 


1278 DISP TBB<18);T*;TAB 


1889 FOR >39 TO 23 STEP 


.5 


959 


3359 DISP " le (lien :",' 


3856 IF Tl<6)=4 THEH N=6 


<J>;-E " 


-1 


2398 IF F«=-o" THEH 2638 


2898 IF Lll THEH COSUB 4 


3369 DISP T3(8) 


3866 IF Tl(8)=5 THEH M=4 


1289 BEEP 38*1.2*1*. 1 


1819 DISP Th8C19>;TJ;TBB 


2498 DISP "Total P0ur";L 


118 


3376 8EEP 448,. 5 


3878 IF Tl<6)=6 THEN H=2 


1299 NEXT J 


(J);"! " 


ritf; 


2988 OISP "Total cour ce 


3386 HflIT 4.5 


3888 IF Tl<8>=7 THEH N=l 


1398 Tl=T»t-E' 


1828 BEEP 38*1.2*11,.! 


2418 IF L>l THEN DISP "S 


jet :"; 


3399 DISP "Veux-tu rejou 


3898 IF Tl<8)=8 THEH N=2 


1319 FOR J=3B TO 12 STEP 


1839 HEXT J 




2916 DISP A»B, 


er (0/N) ?" 


3996 IF Tl(8)=9 THEH H=4 


-1 


1848 IJ=TH-i- 


2429 DISP - :•; 


2928 DISP P« 


3499 BEEP 168. . 1 


3916 IF Tl<9)=19 THEH H= 


1329 DISP T(!E(19),TJ;TPB 


1858 HflIT 3 


2438 DISP T2(8) 


2938 BEEP 88,. 1 8 HAIT 1 


3419 R«=KEY» 


6 


(J);-S ■ 


1868 REN *••»•*•**•*•♦• 


2448 8EEP 48,. 1 » HflIT 1 


.5 


3429 IF R»="n" THEH 3459 


3928 IF Tl(8)=ll THEH N= 


1339 BEEP 36«i.2*2,.l 


1879 REJ1 IHITIBUSBTIOH 


.5 


2948 IF F»="o" THEH 3168 


3439 IF R«="o" THEH 1988 


8 


1348 HEX! J 


1888 REN **»»»**»»*•**» 


2458 DISP -Total aores", 


2958 DISP "Total POur";L 


3449 COTO 3419 


3938 IF Tl(8)=12 THEH N= 


1358 T«=TH"S- 


1898 REN 


IHT(H/2>:"tour"; 


;"jet"i 


3459 REH ••• 


18 


1368 REN esoace 


1998 INTEGER L,H 


2469 IF IHT<H/2»1 THEN 


2968 IF L>l THEH DISP "s 


3469 REN FIN 


3948 RETURH 


1378 T«=Ttt" • 


1919 INTEGER Tl(l) 


DISP -S-: 




3479 REN »•• 


3958 REN suiuant ordinat 


1388 FOP J=36 TO 14 STEP 


1929 INTEGER T2(l) 


2479 DISP • -"; 


2978 DISP " .-; 


3489 REN 


3968 IF A*B=TI(8) THEH 4 


-1 


1938 IHTEGER T3(l) 


2489 DISP T3(9); 


2988 DISP T2(l) 


3499 DISP " Donnas . 


816 


1399 DISP TflB<16),T*;TflB 


1948 INTEGER X 


2498 DISP '♦•; 


2998 BEEP 88. .1 6 HAIT 1 


.. Au revoir ..." 


3976 T2<8)=I2(6)tfltB 


(Ji;"I • 


1959 IHTEGER A. 8 


2599 DISP T2(9) 


.5 


3599 8EEP 449,. 5 


3988 F«="n" 


1499 BEEP 38«l.2"3,.l 


1969 IHTEGER N 


2519 eEEP 48,. 1 8 HflIT 1 


3866 DISP "Total apres"; 


3519 HflIT 4.5 


3996 P»="" 


1419 HEXT J 


1979 RHHDOHIZE 


.5 


IHT<H/2);"tour"; 


3529 BYE 


4666 RETURN 


1429 r*=T«tT" 


1988 REN ••»•» 


2528 IE L=I2 THEH 2618 


3819 IF IHT(H/2»1 THEH 


3539 END 


4818 T2(8>=8 


1438 FOR J=38 TO 15 STEP 


1999 REN CHOIX 


2538 IF L>H AND H<I2 THE 


DISP "s", 


3548 REH »*«**••*••••••• 


4626 Fi="o" 


-1 


2998 REN ••»«• 


H 2599 


3929 DISP - -; 


3559 REH SOUS-PROGRAMMES 


4838 P*="> PERDU •" 


1448 DISP TAB<18>;T»;TAB 


2919 REN 


2549 IF H=I2 BHD T3(9>*T 


3839 DISP T3(l); 


3568 REN •*•»»*»»#»•*»»* 


4949 RETURN 


<J>;"L ■ 


2929 H=l 


2(9)>T3(I)»42 THEH 2599 


3849 DISP •»•! 


3578 REN 


4956 REH ler jet joueur 


1459 BEEP 36«!.2"4,.l 


2838 Tl<8)=8 8 Tl(l)=8 


2559 IF H=I3 BHD T3(9)*T 


3959 DISP T2<1) 


3599 REN conpteur coup 


4869 TKD--HIB 


1469 NEXT J 


2948 T2(9)=8 » T2(I)=9 


2<8»T3C1) THEH T3(9)=I3 


3868 BEEP 88,. 1 6 HAIT 1 


3598 IF X=l THEH Ct="pre 


4878 T2(1)=TI(1) 


1479 TJ=TJt"L" 


2959 T3(8)=6 8 T3<1>=8 


(8)*T2(8) * GOTO 3218 


.5 


nier* 


4888 F!="n- 


1489 FOR J=39 TO 16 STEP 


2969 DISP -Veux-tu co««e 


2568 DISP -Je continue" 


3876 IF UI2 THEH 3148 


3689 IF X=2 THEH C»="sec 


4896 Pt=" 


-1 


ncer (0/H) ?■ 


2579 BEEP 46.. 1 8 HflIT 1 


3889 DISP "Veux-tu conti 


ond" 


4188 RETURN 


1499 DISP TflB<lB);TtjTBE 


2978 BEEP 169..I 


.5 


nuer (0/H) ?" 


3619 IF X=3 THEH C«="tro 


4118 REH suivant joueur 


<J);-L • 


2988 R(=KEVt 


2588 GOTO 2268 


3998 BEEP 168,. 1 


isiene" 


4128 IF B»B=II(I) THEH 4 


1589 BEEP 39'1.2*5,.l 


2898 IF Rl="n- THEN J=8 


2599 DISP -J'ai eeur de 


3188 R«=KEY» 


3628 IF X=4 THEH C«="«ua 


179 


1519 NEXT J 


9 GOTO 2128 


continuer .,,* 


3119 IF RI=-o- THEN 2816 


triene" 


4138 T2(l)=T2(l)»fl»8 


1529 T«=T«t-l- 


2189 IF R»="o" 1HEH J=l 


2699 BEEP 48,. 1 8 HflIT 1 


3128 IF R»="n" THEH 3169 


3638 IF X=5 THEH Cl="cin 


4148 F»="n" 


1539 FOR J=39 TO 17 STEP 


8 GOTO 2879 


.5 


3136 COTO 3199 


•uiene" 


4158 Pt="" 


-1 


2119 COTO 2888 


2618 DISP -Je le laisse 


3148 DISP "Cest (ini po 


3649 IF X=6 THEN C*="six 


4168 RETURN 


1549 DISP T88<19>.H;TflP, 


2129 REH **«••••••• 


la place" 


ur ce tour, BRAVO" 


iene" 


4178 T2(l)=8 


(J);-U - 


2138 REN ORDIHATEUR 


2629 BEEP 48. .1 9 HflIT 1 


3159 BEEP 88, .1 6 KBIT 1 


3658 IF X=7 1HEH C»="sen 


4188 F«="o" 


1559 BEEP 39«1.2"6,.l 


2148 REN .......... 


.5 


.5 


tiene" 


4196 Pi="« PERDU •■ 


1569 HEXT J 


2158 REN 


2639 T3(8)=I3(9)tT2(8) 


3168 T3(l)=T3(l)tT2(l) 


3668 IF X=8 THEH Ct="hui 


4288 RETURN ■ 


1579 T*=TM-U- 


2169 J=9 


2648 DISP "Hon score :", 


3178 DISP "Ton score :"; 


tiene" 





F97 



Les conditions de reussite sont ; 
- ALT <■ 1 m 
-VIT<5m/s 

-0* DIST * - 100 m (les 3 conditions doivent etre reumes). 
essayera ensuile de realiser le meilleur temps 
equations • Vitesse Vi - (0.95 + ° ' 
4.5- 



Vous etes pilote de chasse sur un F97. Apres une 
patrouille, vous vous appretez a atterrir sur !e porte- 
avions ENTERPRISE quand soudain votre reacteur 
vous lachel Votre altitude est de 100 metres et votre 
vitesse del 00 metres par seconde. Dans laxedu pont, 
II ne vous reste plus qu'a planer sur les 500 metres qu'il 
vous reste a parcourir ! 

Entirantlemancheabalai(touches6a9)l'altitudecroit 
et la vitesse diminue. En le poussant (touches 1 a 4) 
votre altitude diminue mais la vitesse augmente. Vous 
pouve2 aussi avec la touche 5 sortir vos aerofreins : la 
vitesse et ('altitude decroissent. La piste du porte- 
avions ne fait que 100 metres, attention au CRASH! 



GiltesOSMONT 




• Altitude -At- (0,95 



)v, 



1 avec Vo~ 100 m/s 



1 avecAo = 100n 



avec Do - 500 m 



• Distance : Di — Di — 1 — Vi 

oil i designe I'inslanl en cours 

i — 1 designe I'mstant precedent 

o designe I'instant initial 
et x la position du manche a balai, introduce aores "OP-DRES?" 
-On limit e del a 9 Taction du manche;on pent introduce des nom- 
bres avec decimales sauf 4,5 et 5.5 

On peut modifier les conditions mitiales en changean! cerlams pas 
du programme; Position Manche (ligne o 3), Distance (ligne 1 o). 
Vitesse (ligne o 7). Alt it ude{ introduce une nouveilehgne en t re o 8 e! 
o 9), Longueur du pont d'allernssage {ligne 12) 





Oescente .Aetolreins/' Remontee 


Position du manche: 


t 


2 


3 


1 


5 


e 


7 


8 


9 


Variation „ ,, _ . 
Vitesse v " vl ' 


98W 


99% 


102% 


115% 


75* 


59% 


91% 


92% 


93:.:. 


Variation Ai ,.. ,. 
Altitude *""" ' 


93% 


92% 


91% 


36 


75% 


115% 


102% 


99'-: 


93:. 



J) Lancer le programme: XEQ F97. 

® Au top sonore. 1'aftichage monlre: TEMPS — IS 

■$ Puis s'affiche ORDRES? 

Vous introduisez la position du manche a balai en appuyant sur une 

des touches l a 9. Ne pas faire R/S. le programme redemarre tout 

seul au bout d'1 seconde environ en emettant un top sonore. 

Si vous n'introduisez pas de valeur, le programme prendra celle du 

cycle precedent (ou la valeur 9 au 1 8T cycle). Le top sonore signitie 

qu'il est trop tard pour introduce une nouvelle donnee. 

© Le mot "ORDRES?" s'etface et apparalt a la place la position du 

manche (1 a 9). 

© Ensuite apparaissent successivement : 

VIT : xx M/S. vitesse en metre/s 

ALT : yy M, altitude en metre 

Dist:zzz M, distance par rapport au debut du porte-avions, en 

metre. 

Le programme reprend en @ en ajoutant 1 seconde au temps. Fin du 

programme. 

© ALTITUDE * 1 metre, mais pas encore arrive sur le porte-avions 

(DIST. > 0) - ecrasement en mer._. affichage de... CRASH. 

® ALTITUDE <1 metre, sur le porte-avions: 

(0 » DIST * — 100 metres) - 

vitesse > 5 m/s ^affichage VIT trop grande... CRASH 
vitesse « 5 m/s ^-appontage reussi... BRAVO. 

® ALTITUDE > 1 metre mais le porte-avions est depasse 

(disl < - TOO metres) - affichage de "OBJECTIF DEPASSE"... CRASH. 



TEKPS=1 S 
ORDRES ? 

VIT.=W H/S 
ALT. =92 M 
DIST. =491 H 
TEHPS=2 S 
ORDRES ? 

VIT. =98 H/S 
PIT. =85 H 
DIST. =383 K 
TEMPS=3 S 
ORDRES ? 

VIT. =189 H/S 
ALT. =77 H 
DIST. =283 H 
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TE«PS=4 S 
0RTJRES ? 

VIT. =181 N/S 
RLT.=7B K 
DIST. =182 It 
TEHPS=5 S 
ORDRES ? 

VIT.=I83 K/S 
ALT. =64 II 
DIST.=-1 II 
TE«PS=6 S 
ORDRES ? 

OBJ. DEPPSSE 
...CRASH... 




81*LBL -F97- 

82<LBL m 

83 9 

84 STO 89 

85 1 

86 STO 85 

87 189 

88 STO 81 

89 STO 82 
18 588 

11 STO 83 

12 -168 

13 STO 84 

14 FIX 8 

15 CF 29 
16»LBL 81 

17 TONE 5 

18 -TEriPS=- 

19 SRCL 85 
28 -(■ S" 

21 BVIEH 

22 PSE 

23 RCL 88 

24 "ORDRES V 

25 BVIEW 

26 PSE 

27 TONE 7 

28 VIEW t. 

29 STO 88 
38 CNS 

31 4.5 

32 * 

33 1/X 

34 .1 

35 • 

36 .95 

37 t 

38 RCL 8! 

39 • 

48 STO 61 



41 RCL 98 

42 5.5 

43 - 

44 |/X 

45 .1 

46 « 

47 .95 

48 » 

49 RCL 92 
58 « 

51 STO 82 

52 RCL 83 

53 RCL 81 

54 - 

55 STO 83 

56 1 

57 RCL 82 

58 X<=V 

59 CTO 19 
68 RCL 83 

61 RCL 94 

62 X>Y? 

63 CTO 23 

64 -VIT.=- 

65 DRCL 81 

66 -f rvs- 

67 RVIEU 

68 PSE 

69 -ALT.=- 

78 DRCL 62 

71 -F If 

72 SVIEN 

73 PSE 

74 -DIST.=- 

75 fiRCL 83 

76 -f n- 

77 HVIEN 

78 PSE 

79 1 

88 ST* 85 



81 CIO 81 
82»LBL 18 

83 9 

84 RCL 83 

85 W> 

86 CIO 28 

87 5 

88 RCL 81 

89 X>Y? 
98 CIO 22 
91 CTO 21 
92«LBL 22 

93 TONE 9 

94 -VIT. TROP GDE- 

95 IIVIEU 

96 PSE 
97.LBL 28 

98 TONE 1 

99 TONE 8 

186 "...CRASH... - 
181 RVIEU 

162 PSE 

183 PSE 

184 CTO 24 
185»LBL 21 

186 TONE 7 

187 TONE 9 

163 -...BRAVO...- 

185 AVIE. 

118 PSE 

111 PSE 

112 CTO 24 
113.L8L 23 

114 -OBJ. DEPASSE " 

115 AVIEU 

116 PSE 

117 CTO 28 
118«L6L 24 

119 .END. 



CHERCHEUR D'OR ^ Q 1 



H 



ED 



Attraper la fievre de 1'or ou un bon rhume en patau- 
geant dans la riviere, votre tamis a la main : tel est le 
triste sort du chercheur d'or! Mais, peut-etre, arrive- 
rez-vous a faire fortune? 

M.-C. LIANDIER 



Sur la gauche de i'ecran, defile une variete de pierres de toutes les 
couleurs, mais une seule vous mteresse : les jaunes. les pepites d'or. 
Pour les recuperer, placez votre tamis sous la colonne desiree a 
I'aide des touches - ou -de votre console 
Si vous n'arrivez pas a temps, la pepite poursuivra son voyage dans 
le lit de la riviere. Si vous parvenez a la saisir, le chercheur d'or se pre- 
cipite vers ses coffres pour cacher son butin et vous interviendrez 
pour le guider vers le coffre marque + 2 qui augmente votre score de 
2 points, ou vers celui marque + 1 qui ne I'augmentera que de t. 
Tous les deplacements sont actionnes par les touches ■ 
du clavier 

Vous ne pouvez transporter qu'une seule pepite a ia fois. Le comp- 
teur de gauche mdique le nombre de panneaux rest3nt a apparaitre, 
celui de droite, voire score. 

Le jeu s'arrete des que le compteur de gauche est a zero. Vous pou- 
vez modifier ce programme pour I'utiliser avec les manettes de jeu 
en moditiant les teats et chargements de la chaine TAMS 




1 CLj:5CP££NI,7.4:L0CATE6,e,9 

I LOCATE 3e,l£:PPJNT-LE- 

I LOCATE 36. |4:PP1HT-CHERCHEUR" 

I LOCATE 39, ISiPPINT'D'OP" 

I LOCATE ie.23!PPIMT*»«6(109Hi«: 

! 1983" 



OUL 



;leap. .5 

98 X"ieetV-0:OUL-.J:'"'UnMlr 

199 TOP 1-1 TO 36 

116 LIKE <9.289--< '. r ■ 

129 X-X.]8:0UL«0UL'I 

123 IF XJ329 THEN W 

136 IF OUL-7 THENOUL-8 

146 NEKTI 

136 A9-AB'l 

155 OUANCIHKEYI 

169 IF0UAN»--"G0T0159 

179 OA-AB MOO 7 

136 IF OA-BTHEN OA-3 

199 I'B 



CLS 



„- -:CPE£M1,6,1 

1928 t/ErCftf<8>-e.£4.6e.lSD.126.66.24,9 

i8£i c,EFCpt(i>-i£'^i?5.e.8.e,«»e,e 

182£ DEFCP*'E'»129, 129. 255,235. 255,253, 2 



1823 [>EFr,»*<3'<-8,9, 


,24,66,126,233,255 


1624 6EFCPI'4;-24, 24, 16,28. 16.46,68, 19 


1625 BOX (232.8>-'276,32, 


1626 BOX (3S,fl ■ 












1829 CT-9!L0CaTE31.2-8iPPlNTCT 


1639 CTP-39iL0CATE3 












1833 LIKE (96,1321- 




1836 LIME f«,149>- 




1837 LINE '244,132- 




















1642 LINE '368.34>- 










UW, 194/. 7 


1671 B0*F '294. 139 ' 





1672 Xt--.1"IL0C-TE J3,23,eiPI»HlTXI 
1873 >!f--.2'iL0Ci>TE 36. 1 3. 91 PPINT,: « 
1674 LOCATE 8. 18,9 
1873 FOP »-8 TO 6 
ld86 '-.0')U8248« 



101 



PINT 



7.8ICOL0P A.7IPSI-!! > > : 



1998 HC141 

|»93 LOCATED I 

! 198 z«e 

1 1 19 f<wi« :■■■> : ■ 
1128 .'.oiLi&ioee 

1138 FOP n«IT030 

1139 CT«"CTR-!ILOC«TI 3-i.8lC0L0P8.7if. 
NTCTP 

I |48 TflHMlNl I ' 

1 145 COiUB IWt 

1 159 GOtUB 

lite :l-: 

ii78 ir:-7iHEN:*i>c. 

1788 NE^T « 

!488 ENO 

2666 PRINTILOC-TE 6.16.8 

2816 KM-' 

2P26 GOSUB ^408 

2846 BETUPN 

■■ ■ 

l ■' 



2144 IF M0NO6 THE" T«MI. ] NKEYI !F TANK 

> '"THEN G0SUB2669 ELiE GOTO 2138 

2136 I1-T<Z, JUV-il -K 

2135 COLOR II,7:L0CAT£U,v.e 

2166 PRINT CP*<8) 

2162 IF K-3 THEN IF H01*8 THEHcosuweeei 
IFH0H»6 THEN G0SUB4088ELSE G0TO2KB ELSE 
C0SU84IBS 

217B Z-Z*l 

2189 IF Z>7 THEN Z-6 

2269 NEXT F 

2284 TAn*.|HKEV* 

2285 IF TAnl',*'THEM GiJSLlB2686 
2219 NEXT J 

2228 RETURN 
2488 FOR J-8 T05 

2418 COLOR 1.7 

2428 T<K,J)-I 
2436 I-t»0A 

2449 IF 1,6 THEN I •■ INT ' RND»1 66 i >(10t>7 
Z*Sb PRINT CP*'8>*" ■; 

2468 NEXT J 
2476 RETURN 

2688 '---PQSIT10NNEHENT HI TAN1S --- 
2683 IFHDH06THEK L\0SUB3e66i TA"»- " -:PET 
URN 

2618 If TAHI-CHPt'9-oND Lit < 37 THEN 
SC0L-C3PLIN:SLr.'P0SiL0CATEL!CI7,e 
i COLORS, 7t PRINT- -*GR*<! H LlG-L IG'2tG 
OT02788 
2626 IF TAdfCHPfS-ANti Lit -8 THEN 

SC0L-CSPLINiSL1&-P0"j:l!G-LIG-2! 

LOCATELIG. 17.9:C0LCP 9,7:PPINT CPt' 
|)*« ■: GOTO 2788ELSERETURN 
2786 ' 

2938 TAKI-" 
2878 LOCATE SLIC.SC0L.8 
2986 RETURN 
j 999 .... DETECTION DES TROUVES ---' 

3988 IF 2>6 THEN :;-8 ELSE :z-z*i 
3693 LI'LIG/E 

3667 IF LI-^J THEN RETURN 

3619 IF T'ZZ.LI -' 3 1HEN PETUPN 

3611 T<2Z,Ll/-7iH0n.l 

3612 LOCATE LIC,1*,9*C0L0R7,7 
3829 LOCATE LIG, I 7. 8: CGL0R3. 7 
3639 PRINT GRf(2' 

3849 PLAr-04L12DGPEf'tiPEIiO- 

3841 FOR 0-1 T0198 

3842 AA»1 
3943 NEXT 
3B45 C.OL0R8.7 

3838 ICT-UG0SUB7588 

3668 LOCATE L IG, I 7, 3> COL0P6, 7 
3876 PRINT GR*(4i 

3186 FOR P-LIG TO 38 
3116 LOCATE P. 17,1 
3128 PRINT " "*CPt' 4'i 
3138 PLAV-03L69O3O* 
3148 NEXTP 
3676 LX-LIG»S 
3969 LIC-32 
3B99 LOCATE LX, 16,8 

3989 PETUPN 

3999 '---Dt'«<'.ion <i«» louo««--- 

4866 ir 2-7 THEN r:-8El-3C 22*Z'l 

4990 [FT... ■', .. PCTUIM 

4989 LX»J*£<C0Su92689 

4018 LOCATE LX,ie,P:C0LOR3.9 

4628 PRINT GP«<3- 

4838 PLhV'01L48000OC'O* 

4648 TOR 0-1 T0I66 

4639 AA-I 

4668 NEXT 

4698 LOCATE L>. I 9. 81 C0L0R6, 9 

4199 PRINT ' "1C0L0R4.7 



Lb 



3916 
3626 
3636 
3848 

3868 
3388 
3392 
31, PF 
3363 
3363 
3319 
3768 
3726 
3748 
5769 
3796 
3796 
3793 
3699 
6868 
6828 
6838 
6848 
6868 



6148 
6588 
6528 
6348 
6368 
6589 
6669 
6626 
6638 
6649 
6788 
6728 
6739 
6746 
6766 
6786 
6699 

tua 

6649 

6996 
6928 
6948 
6968 
69B8 
7889 
7828 
7846 
7299 
7249 
7266 
7286 
7396 



7386 
7326 
38,2, 
7349 
7366 



LOCATE L.:.16,8 

RETURN 

SCOL-GSRLlNiSLIG-POS 

IF H01O1 THE* &OSUB66861GOT0364.-' 

ir TAMI-CMPt' 11 'THEN G0SUB3388 

IF TAn««CHPt' [Aim* r,0SUB3786 

LOCATE 3LIG,SC0L,B 

RETURN 

yOR P-l 7 TDI2 STEP-1 

LOCATE 3 1. P. 9i PR I NT "IPpi-P-IILOCAtl 

,81 COLORS, 7tPPINTr,Rtt4> 

PLAV03L6SOSO" 

NEXTP 

H0N-3I RETURN 

FOR P-17 TO 2c 

LOCATE 31.P,8=PRINT- ■ 

PP-P.1UOCATE3I.PP.8I 

C0L0R6,7iPRINT CRf(4> 

PLAY-03L6SO'>0" 

NEXTP 

PLAV04L34RERE- 

H0H-2iPETUPN 

IF H0K'>2 C0T06588 

IF TANtOCHPf' llJlHtN RETURN 

ICT-HGOSUB 7388 

FOR P-23 T013 STEP- I 

L0CATE31,P,9iPRINT" "IPP-P-I 

L0CAT£31.PPiC01.OR6.'lPR|NTGR«<4 ■ 

PLAV-03L630S0- 

NEXTP 

K0n*6iPETURN 

[F MO"' 3 C0T06769 

IT I.'.HI' r.HPt'9'THE« iElLlbl 

TOR P-31T036 

LOCATEP. 1 l,9lPP|NT* "lfP"P*l 

LOCAIEPP, 1 ;, 0! COLORS. 7! ^RINTGPI- * I 

PLAVO5L6SOS0" 

NEXTP 

PLAV04L24PERE* 

H0W4IRE1UPN 

IF H0HO4 G0T06998 

[I tent- [HRt'OMHEN PETUH* 

ICT-2IG0SUB 7369 

top M37T03I BTEP-I 

LOCATEP, 11. BIPRINT- -IPP-P-1 

LOCATEPP. I l.O'COLOPfl. 7iP«lNTCPI'4i 

PLAV-03L6S0S0" 

NEXTP 

H0H-31PETURN 

IF H0KO5 C0T07299 

ir TAHf.->CMRKie>TH£N PETUPN 

FOR P-11TIJ16 

L0CATE31.P.9IPR1NT -iPP-p.l 

L0CAIE31 .PP.9IC UL0Pn."r:i°RlNTGR»<4> 

PLAVO5L6S0S0' 

NEXTP 

H0f1'6IREIURN 

IF TAf1K>CHP«.:i))IMEN RETURN 

FOR P-31T0I2 STCP-1 

LOCATEP. 17. 6'PRINT" -iPP-P-1 

LOCATEPP, W,9iC0L0H«,7'KRINTGRH4) 

PLAV03L6SOSO - 

NEXTP 

LIC-12 

HOH-O'RETURN 

CT-CT.1CTIC0LOR " " 

IF CI' lOTHrHLOEfi 



fE3i.2.8ELSE LOCATE 



AIDITEUR 



Programme de traitement de texte permettant la justi- 
fication 3 droite et a gauche avec coupures automati- 
ques des mots 

Ce programme (onctionne sur Apple II + 48 Ko ou 
Apple IT et necessite un drive DOS 3.3 ainsi qu'une 
imprimante. 

1 - POSSIBILITY DU PROGRAMME 

AIDITEUR permet de traiter les fichiers saisis a I'aide 
de programme de traitement de texte comme APPLE 
WRITER II... 

II ame'iore "a presentation des textes en introduisant 
une ccupure automatique des mots en fin de lignes, 
evitant ainsi 1'ajout de nornbreux espaces comme le 
font les editeurs de texte habituels. Le programme 
respecte evidemment les regies classiques {ex. : COU- 
PURE ne donnera pas COUP-URE mais COU-PURE). 
Ceci est particulierement interessant lorsque la lon- 
gueur des lignes est courte. 

Par ailleurs, plusieurs options permettent de changer 
pendant ['impression les differentes marges, le 
nombre d'espaces entre chaque ligne ainsi que le cen- 
trage automatique d'un titre. 

2 - UTILISATION DU PROGRAMME 

Apres avoir lance le programme AIDITEUR (aiditeur + 
amper). le menu s'affichera automatiquement. II 
faudra alors remplacer la disquette par celle conte- 
nant le fichier a imprimer. 

On pourra choisir les differentes marges, le nombre de 
lignes par pages... en tapant le numero de I'option 



APPLE" 



choisie (ex.: taper 5 pour changer le nombre de lignes 
par pages). 

L'option 9 permet enfind'imprimerle fichier. Une fois le 
fichier imprime, le programme retournera automati- 
quement au menu. 

3 - COMMANDES DU PRO GRAM ME 
II est egalement possible de modifier les options choi- 
sies au cours de I'impression. Aiditeur reconnait 
quatre commandes permettant ces modifications: 

a) Centra g e d'un titre: 
%C 

Titre 

suite... 

-> le mot "Titre" sera automatiquement centre. 

b) Changement de la marge gauche : 
%Gx du x est un nombre relatif (+ ou — ) 

-> le programme ajoutera x a la valeur de la marge 
gauche. 

c) Cha ng ement de la mar g e droite: 
%Dx ou x est un nombre relatif (+ ou — ) 

-> le programme ajoutera x a la valeur de la marge 

droite. 

ATTENTION: LES VALEURS DES MARGES SONT 

DONNEES PAR RAPPORT AU BORD GAUCHE DU 

PAPIER: MG = 3 ET MD = 10 DONNERA UNE LAR- 

GEUR DE 7 COLONNES (10-3). 

d) Nombr e d'espaces entre c haque ligne: 
'oEx ou x est un nombre positif 

-> la valeur normale est 0. 



4 - FONCTIO NNEM ENT DU PROGRAMME 
Aiditeur utilise pour accelerer sa vitesse dexecution 
un sous-programme en LANGAGE-MACHINE nomme 
AMPER: 

II permet rapidement de trouver une chaTne de carac- 
teres a I'mterieur dune autre. Aiditeur sen sent notam- 
ment pour trouver les voyelles. les espaces. etc.. dans 
le texte a imprimer. 
SPOS AS, BS.C% 

C% donnera la position de AS dans BS CALL 869 sert a 
trouver les autres positions de AS. 
Le programme lira NC caracteres du texte sur la dis- 
quette (NC= nombre decolonnes). Si la dernierelettre 
ne correspond pas a la fin d'un mot. Aiditeur regardera 
s'il peut couper le mot a cet endroit. S'il ne peut pas. il 
ajoutera un ou plusieurs espaces en prenant soin de 
les repartir de telle facon que tous les espaces rajou- 
tes ne se retrouvent pas au meme endroit. puis il 
recommencera son analyse. 

5 - REMARQUES 

Lorsdu centrage d'un titre. si celui-ci est plus long que 

la ligne. il ne sera pas imprime. 

Le programme autorise renvoi de caracteres de con- 

trole a I'imprimante : on peut done changer de type de 

caracteres au cours de I'impression. 

Le fichier ne prenant aucune place en memoire. il est 

possible d'editer des fichiers de n'importe quelle taille. 

Les fichiers doivent etre des fichiers-text (T lors d'un 

catalogue). 

Airy ANDRE 



I ROM BQT? um 

s re - i 

II »*:»? ;-=! rl 'HW *•>:*■ 
:) =>=:■.- •mm ;,;■ 

II HORE i OEF FN LEW • <« > - il ap.0 a ( • fli • 

13 vDi • "■ElOUt'tCW • 'KBFtKKUMraRaTWlI* 

I* ill • •[nPKTHlLC.FL6L*LPLSlUl.8RCPDRFa6R>:RPRTRM6N-> 

33 ss-a :illl 

41 HOKE ■ =°:-- .ES - ■ 

«; = r:s: :-3i '4rMrsu 

3* PRINT :m»i E4) *0PEII*MMI 

33 PRINT C"»t l«>-tE«Mmil 

») »:i . ■■ 

■; -:;i irtmi.t,!) • * ■ then phri . mot <phri,2 

'3 i • n;i - ten fP"»»M rQP I • 1 IB Ni 9Et AliPHRi ■ 

II .£1 • Il 

)S I . lii - CHRt US1 MB l£ETi (9Hai.li • •!■( i ; 

41 IF Al • CNRI (ill AND l£N (Phrii • I THEN PHRI • 



i.\ I! 

in 



i on i eoio 3ii 



l' Al < 



CHRt (271 THEN I 



::) :t \ .Efti imm.u 



IM if *; '■-.* nmt ■ 



us »:» ■ »:» ■ 



I.P2I.PII 1= Ft • 



I. PI - IUP2I 



1 THEN PZI • Kill I 
• rttfit (PHR*.F-X • I 



I'S if righti 



for [ ■ 



■lot rrei.i.u 

: ia i 



STEP 



' then iOiui allli 

■ :-:n 17t 
IM» PZI • fflDf II 
li IF NDI FN LEI 

f V0 THEN 



15C c «1 01 



111 .i • "iidi I'HM.l.ln S0SUI 2111: 

l»S KEI1 I If *DT VO T-Ef 233 

211 V0 ■ Il * OR I • ■ TO LEN IPZlIt IF NOT FN L-l «GC 

Mil 50?3 ill 

ItS 'I ■ -TO* i'JI.l.In GQGUS 2111: IF W MEN I 

211 lEtT | IF NOT V0 THEN 1*3 

in •• • kidi u-»i, lei iPHati - i.uiEt • «tenTf iphbi.!. • i 
scsji :m^ i c n and ei t-eh p:i • menu (»hbi,:i • p2i<p«bi • 

II • ---i SOTO 3111 



101 tC2t. 
LER IPZI) 



123 



vl Th£n :t ■ 






IE" 



233 



i S0TC 



t LEI *SC i 



. {-;t|t-=l ■ 

tPHM,J 
IfHTI U 

iPHni.pi 



<P2),I)I 



i sctue iiitt 



I0SUI Mill IF 



}t] 535118 till: SOT! 

2111 1 PUS Yt.VOt.vOliVB ■ "0I> B E'U»« 

3111 I PCS Ef.HI,EIHCl ■ "Eii t 31 * 

*lll i »0S C».C0l.tOSlCO • COli 't'-l** 
Silt IF n|OI lfM,i.ll - " ' IHM P3* * 
3113 *a» f . j Ta Mil P»I«T ■ •,, nei: 
•til »»;>■; ^si 1( too T - I TO ESi POINT 
3113 flE ■ HI ' if* 'P21U 

;•;■ I* mi m mci :t:; 

I • £3 « 



r 2)|| PE'UDN 

i 60T0 ]||( 



--:--•: . 



SI4.I2II HOPE 



il". ! 



: aur»E f 



jille ■ 



3IJ1 l« • lni * es • 

P2»iP!t • 



3111 At • CHItl (till I P0S At.PhP.1 
3113 IF Pt • I THEN PI* • HISI (?Kfli.Ji 

3i3i Pit • mot iphri.p: . u.psm • le 

6111 SL* •''it PQS BLt.PHRt.Pl 

alii IF Pi • EI AND P01 • I THEN POP t 

till IF PI • I THEN P0I • Ell 30T0 till 

m3 if pi < poi then call itfi eoto et 

t!2l POI • PI * 2 
til) P0 • PI 

till PHRI • LEFT! (PMRI.P0) • NIDI IPHRi 

»»t, LEN IPHRtl - II 

AI33 RETURN 

Hill CHI • 110* :--'!.:.:, IF CHt < ■ 

■E' THEN 3111 
11113 IF CNt C ■ <C* INEN Hill 
Hill Tit ■ " 

ill!* SEI All IF A* ( > ■:--! Ill) THEN 
11121 IF LEN Hill ) NCI IMEN At 



ili Then lni • li for I • 



F NOT PI THEN 23 

PHRI • "| SOTO 3111 

Tl IPHRI.PI - |)i S0T0 3111 



IIIS 



Hill 

1)131 
1IKI 

21111 -:-e 



■RIHl 



1010 »l 



1101 I 



i I0TG 



Cm • -6' THEN H6I • BBl 

CXI • -0- THEN HOI • HD1 • VAL < "10" IPHRI.llllNCl 
■ ! TO LEN IPRIli P0<E PtCN. («ll » 23* • 
t IPRl.UJli NEIT i REIURN 

3IIII IEIT I HOME i INVERSE i PRINT ' t IlltEul 

NSRG I AIRISSON -i P0IE H.Sl N0HHAL i VTAI » 
31113 HQHE i PRINT Ml HRP.BE 8AUCHE t ' ■ HOI i PRINT '21 
PRINT *]1 nARBE NAUTE I -I'-li PRINT -II nARGE 1A56E 
31111 PRINT ']) LIGNES PJ»» PASS I *|»H 
31113 PRINT •*) FEUILLE PAR FEUILLE I "iFEIi PNlNT '?! NON 0U 



Hit - NGIi GOTO tl 



NAR8E DROITE 



■ H.01 



lll'l IF 

31131 IF 

JII33 IF 

31H* IF 

311*3 [F 

31171 IF 

JM?] IF 



111 



E* < 



IF 



"|SH 
IW« LE FICHIER 'N0m 



INOHt • -- OR NOm < 'A 
NCI • K01 ■ RGIiSPl • 
[NPuT 'HARBE GAUCHE i 
INPUT 'HARSE IRQITE < 
INPUT -NARSE HAUIEt ' 
INPUT ■ NARGE BASSE I 
INPUT 'LIGNES PAD PIG 
INPUT 'FEUILLE PAR FE 

i -N- Th(n FEI ■ "N- 



tttll IF PEE' '222J • 233 THEN P 

IIII3 IF »EE" 12221 • a THEN PR! 

Hill IF PEE) (1121 • 1J THEN PI 
I 

11113 LII • PEER (2111 • PEEK (21 

11121 IF PECK (2221 < > 3 THEN 

II13S IF LII • 111 THEN 131 

4IIII FOR I ■ 1 TO HG'l PRINT - -| 



[ i PRINT CHRI 
'FICHIER [NCONNU 
'CE FICHIER 

■ 2)» 



EIT 



THEN 11113 

• li GOTO 41 

IH. Inllli GOTO 31113 
/AL lngtli GOTO lilt) 
. IUHDi GOTO Hill 
IL INIIU SOTO IIIIS 
• VAL INLlii SOI0 IIIIS 
■[FEIiFEl . LEFT! (FEI. II 



:H|tx 1EM 



111) FOR I • 


TO LEN ICOII 


cot • 


llll FOR T • 


1 TO LEN (VOt: 


VOI • 


III] FOR T . 


TO IEn lEili 


in • 


1131 VOI • V0< 


* CHflt llJJt 


' CHR 


■133 RETURN 







INT -ERPEUR I" PEE* 12221' LIGN£ 'LII 
PRINT PHRIt PRINT CHRI llrCLOSE'i PRINT CKRt I 
CHRI t Alt I RI0I (C01.TII I 111 I NC1T 



VOI • 



11231 



:-=i 



niDt (voi. i 
iili ( 




ID F3 13 I* 

II GO FT 

I 13 4C Ct 

I EI OF Gl 



13 14 14 

G3 II CI 

1 It 14 IS 

I EI IF I) 

I II IA *2 

I Et 12 Fl 

I II II S3 

7 01 l« A4 



CHEVAL 



Attention aux ruades du cheval fou qui parcourt votre 

ecran a toute vitesse. Faites lui sauter les haies sous 

peine de le voir tomber le museau le premier dans la 

poussiere. 

Appuyer sur "SPACE" pour faire sauter une haie a votre 

coursier. 

ElieZAGURY. 



t8:a«m ■-821C2C1C 
8C860B54 228332 
", "<»0?8128C0C8 
80S] 42^4601" 

20:OfiTP "10090606 
06840'J0'5 0fi03i2 
", "205C0C8C0C8 

sie^asaseia" 

30:Daift •08080-106 
0C18J8788C8ri08 
", "018284860C1 
810288Ce088 : ' 




■ 4 



jeeiCLTOR :Din 

•■>>t22 

REfta ■•- 
•ir/r 1 1 

129! .1 ■ 10000080 

t-C» 
280:" "UA 

r=0 
218: "ob^ CLS 

FOR >.- : 



GCURSOR 8: 

GPRJW "107060 
40":BEEP l,x: 
NEXT X 
220:FOR J=l TO 5: 

CURSOR 0: 
GPRJNT ot(4K 
CURSOR 0: 
nppinr A»<5): 
BEEP I, I.3J 

NExr i 

110 1 32 

STEP 8: J-0 
2-10IGCURSOR C-4i 

Ml D*jA«t] 

UBEEP ... 

8: ■■ '- ■ fi 

260: |t 

IF POINT CC- 15 
JO0GOTO "chut 

270:GCURSOR C*4I 

GPPINT C«;ft*t0 



):BEEP ], A, 7 
260: IF INKEY* »" " 
OR S=1G0SU8 "j 

290: IF C<135IF 

POINT <C+19X> 
0GOTO "chulp" 

300: NEXT C: r ■■■[•!: 
CURSOR GiPRlNT 
"CfM-wol !>>"; 
UiFOR N=8TO 9: 
BEEP l.NiNEXT 
N 

3I0:GOrO "obs" 

500:"jLiffip"BEEP 1,0 
, 9: GCURSOR C*4 
:GPRINr C*;D»i 
0*C2); GCURSOR 
C*H:GPRINr C* 
;«*(2» 

310:C- ( ■ . ■ 

■... . . : , ... ,. 
>0> 

320: uc- 



PC 



1500 




680: "chutf'Uri! I 3 
610IFOR X-CHTO c-> 

IBSTEP 2:BEEP 

I , X, 10 
620: GCURSOR X: 

GPRINI D*JA*<3 

):NLXI X 
■ .■-. . . ■ . 

GCURSOR X*0: 
INI i:*;D» 

64 8: CURSOR 0: 

INI A#(l>»l 
PRINT " ToTal 
>" ; r; " points 

■ 

II R4C0J 

■ 

,Nl m i P 
I, 101 Nl 
000: II INKI vi ■"■ 

PHI ■■ 660 

670: IF INK! 'it ' - 

■ ■. - ' 

■ 



SAUVETAGE 



Aux commandes de voire PC 1251 transforms en 
bateau pour le temps d'un jeu, vous devez tenter de 
repecher votre camarade, tombe a I'eau. en tui lancant 
une corde. le programme comporte deux phases : 

1 ) Lance de la corde : une lettre est affichee sur lecran. 
Vous devez le plus rapidement possible appuyer sur la 
louche correspondante. La Vitesse d'affichage est 
fonction de la force entree au debut du jeu. 

2) Retour au bateau : votre camarade a attrape lacorde. 
Vous devez maintenant le tirer a vous. Deux nombres 
s'affichent ils constituent les coordonnees (abscisse- 
ordonnee) des touches correspondant aux chiffres. II 
faut une nouvelle fois appuyer le plus vite possible sur 
la louche designee. 

Si la reponse nest pas bonne, la corde va dans le sens 
inverse du but recherche. Apres vingt fautes, votre 
camarade fatigue delutlercontrelecourant.senoiera. 

Isabelle MULLER 

DISPOSITION Du CLAVIES 
EXEItPLE : NUHERIQUE : 

1) LANCE DE -A CORDE 4 i 7 i 8 : 9 ' 

a > — 2 s ♦—♦-..+—♦ 

UPPUVER 5UR 8 J ! 4 i 5 ! 6 ! 

2) RETOUR AU 3UTEAU 2:1:213! 
<8 > % 3.2. »__♦__» ♦ 

AP°|JYER SUR 3 [ • 6 I . : + i 

(S ) S 2.4. ♦ 1 + + 

APPUYER SUR 8 12 3 




4 >c ^ 



5:*S' SAIT 126 
SiPRINT ' »» SAUVET 

AGE *»• 
?l CLEAR 

8: RANDOM 

19HNPUT -FORCE ■' 'iF 
15IUAIT 55+18F 
28SDM B»C1)*18 

2i:DI« C$(l)«13 
22:DIP! U$(3!4)*l 
23:DI.l L*<3>»28 
24:A$='(fs )" 
25JUAIT 133 
26: PRINT '1) LANCER DE 

LA CORDE" 
27SUAIT 55+13F 



33 


-j, >5j . :.. ; : ... 4 


55 


SOSUJ TO 


37 


.1= '.■■its 


•=0 


'■'- is ' a - l ~ ' = '-■■■ 


50 


!F " .-• FT - = '-• 


-. : 


- = -. ■ 


S3 


30TC 38 


70 


:.' (i =" 


88 


IF T '8 FOR •=: -: - 




■ is : =8* : )*'-•: 




IE " 


99. 


: r i e LET :$i : ■•' 




i - .' =~-: tc :-!: :: 




(1>=C*<I>+* ": NEXT 


:oo 


IF Z=23 CALL 57088: 




CALL ST889: ..AIT 168 




: °R!NT •« ) HOYE 




•: GOTO 270 


ng 


IF "=0 "I:." ftfiEfi' 




S': 3 E"J'-. 


128 


IF T=18 FOR X=l 70 5 




: CALL 47858: NEXT '■■■ 




■■ KAIT '.33: =R:NT "2 




■ RETOUR AU BATEAU - : 




GOTO 288 


138 


PRINT AtiBSC'/SESiCJ 




<:>;"S": RETURN 


288 


DATA "3-.':'."4",-7- 




.•.•,>2',«5','8','t" 




.•3". '6*. '9' 


218 


RESTORE 288 


215 


FOR u=l TO 3 



2171 
2181 



::: 
222 
223 
224 
225: 

238 

235 



275 
298 
291 
292 
293 
294 
295 
297 



': - 
REAI -i 

ME " ■: -.; • 

:• 58»15f 

:-" >•• 7 

CALL ~i^Z: CM 

51: HE ' ■■ --:" :;? 
: PRINT '■>;> SAuV 
E l 3OT0 268 

:- :=:■; 30TC 

[p ; J _;- j-5 

H" RND . 

"= RN0 V 

IF J -3 30SUB 298:R«= 

INI E i 

:- e>=Hs<niT ■ _e _ .•= 

J-Ii 50T0 229 
J=J*1 

Z=Z»; 

GOTO 223 

PRINT S"=J (28-Z>i ' 

SUR 28 En FORCE '1 

STRJ F 

INPUT 'JNE AUTRE PAR 

TIE ? ';h« 

IF H»='0" OR H«= , 0UI 

• GOTO 7 
:ENJ 

Lt<2>="( £)" 
:F0R H=l TO J 
:L*C2>=L*<2>+'-" 
:NEXT H 

Lf(2)=L$<2)*'S - 

PRINT L«<2)»* 'IHiT 

RETURN , 



GESTION DE DEPENSES rtr \<& 



Vousallezenfin pouvoirconnaitre quelle est !a partde 
vos revenus qui passe dans I'habillement, les impots ou 
les patisseries! 

Pour cela. vous devrez communiquer vos depenses 
quotidiennes a 1'ordinateur, qui se chargera de realiser 
automatiquement des releves quotidiens. mensuels 
ou annuels. 

Une fonction histogramme a ete ajoutee afin de mieux 
apprecier le poids relatif de chaque poste de depen- 
ses. Si I'imprimante pouvait dessiner. ce serait le tradi- 
tionnel "camembert". 

II vous faudra creer vos differents postes de depenses, 
qui ne sont pas forcement les miens. La machine en 
accepte12. 



CLOTURE/ JOUR 
ALIMENT— >2?0. 
CIGARET— >7.85 
HABILLE— >250. 
TRANSPT— >24. 
LOISIRS— >36. 

CINEMA— >34. 
ASSURAH— >I55. 

IMPOTS— >0. 
TELEPHO— >9. 95 
LIBRAIR— >Z5.55 
JOURNAL— >8. 
PATISSE— > 12. 35 

TOTAL >84Z.2 

CLOTURE/JOUR 
ALIMENT— >142. 
CIGARET— >7. 85 
HABILLE— >0. 



TRANSPT— >17. 
LOIS IRS— >26. 

CINEMA— >0. 
ASSURAN—>0. 

IMPOTS— >68. 
TELEPHO— >8. 65 
LIBRAIR— >155. 
JOURNAL— >17. 
PATISSE— > 14. 25 

TOTAL >455.75 



CLOTURE/MOIS 
ALIMENT— >412. 
CIGARET— >15. 7 
HABILLE— >250. 
TRANSPT— Ml. 
LOISIRS— >62. 
CINEMA— >Z4. 
ASSURAH— >155. 



IMPOTS— >68. 
TELEPHO— >18. 6 
LIBRAIR— >190. 55 
JOURNAL— >25. 
PATISSE— >27. 1 

TOTAL— > 1298. 95 



HISTOGRAMME 
EN V. 



ALIMENT— > 31.71 



CIGARET— > 
HABILLE— > 
TRANSPT— > 
LOISIRS— > 

CINEMA— > 
ASSURAH— > 

IMPOTS--> 



UTILISATION DU PROGRAMME EN MODE DEF: 

SHFT "=" Enregistrement des postes de depenses (ne sert qu'une 
fois). 

Dans un souci de presentation agreable des lislages. tou- 
jours respecter 7 caracteres par mots, completer au 
besoin par des espaces. 

SHFT "S" Saisie des montants depenses pour chaque poste. 

SHFT "J" Cloture quotidienne, impression du releve journalier et 
Iransfert en zone mensuelle. 

SHFT "M" Cloture mensuelle, impression du releve rnensuel et 
transfert en zone annuelle. 

SHFT "A" Cloture annuelle. impression du releve annuel. 

SHFT "H" Traduit en % le total de chaque poste. 

SHFT "C" Effacement des sommes enregistrees en zone jour, mois 
ou annee Ne pas oubller de le (aire avant chaque nou- 
velle saisie quotidienne et bien sur. chaque fin de mois ou 
d'annee. 

Joel LAMOTTE 

Ar,K>+D 
60INEXT I 
70: END 

100:"J"PRINT "CL 
0TURE/J0UR": 
R=0 

110: FOR I=39T0 3 


120:J=I-12:PRINT 
AJ(J)!"— >"! 
A(I) 

130:R=R+A<I):K=I 
+12:A<K)=A<K 
)+A(I) 

140: NEXT I 

150: PRINT 

PRINT "TOTAL 
>"!R 

160: GOTO 390 

200: "M "PR I NT "CL 



TELEPHO— > 1.43 
LIBRAIR— > 14.66 
JOURNAL— > 1.92 
PATISSE— > 2.08 



1.20 
19.24 
3.15 
4.77 
2.61 
11.93 
5.23 



5:"="F0R 1=27 

TO 33 
6: INPUT A*<I> 
7: NEXT I 
8: END 
10:"S"BEEP l: 
PAUSE "SAISI 
E" 
20: FOR I=27T0 3 

8 
30: BEEP 1: PAUSE 

PA'..\> 
40: INPUT B 
50:K=I + 12:Ar.K>= 



210 
220 



240: 
250: 



260: 
300: 



310: 

320: 



330: 
340: 
350: 



360 
400: 



?c 



0TURE/I10IS": 

s=o 

FOR I=51T0 6 
2 

J=I-24:PRINT 
At<J)j" — >"i 
A<I) 

:S=S+A<I; :K=I 
+12:A<K)=A<I 
> 
NEXT I 

PRINT 

PRINT "TOTAL 

>'SS 

GOTO 590 

"A"PRINT 

OTURE/ftN" 



FOR I=63T0 7 

4 

J=I-36:PRINT 

At<J)i"— >"i 

A(I) 

T=T+A<I> 

NEXT I 

PRINT 

PRINT "TOTAL 

>"iT 

GOTO 590 
"H"BEEP l: 
PAUSE "HISTO 
GRAMME" 
PRINT "HISTO 
GRAMME": 
PRINT " E 
H :<"■■ PRINT " 



440: 
•150 



470 
480 
500 



"CL 
:T= 



540 
550 
560 
570 
580 
590 



: INPUT "M0IS< 
1)»AN<2> ?"i 

E 
:IF E=1LET A= 

5l:B=62:J=24 

:F=S:G0T0 44 


:A=63:B=T4:F= 

T:J=36 

FOR I=AT0 B 

D=I-.!:E=A<:i> 

'Ft 100 

PRINT At<D); 

"—>"( USING 

"snn.itr'SE 

NEXT I 
GOTO 590 
"C'BEEP II 
PAUSE "EFFAC 
EMENT" 
INPUT "JCK1> 
M0IS<2)AN<3) 

? "!E 
IF E=1LET A= 
39:B=50:GOTO 
550 

IF E=2LET A= 
51:B=62:G0T0 
550 

A=63:B=74 
FOR I=AT0 B 
A<I>=0 
NEXT I 
END 

PRINT 

PRINT 

PRINT 

END ■ 



COMPTABILITE ^ 80 



Un programme de comptabilite personnelle mais qui 
sert aussi pour la comptabilite d"un magasin. Remis a 
jour avec les taux de TVA actuels et le nouveau plan 
comptable, il est tout a fait possible, moyennant quel- 
ques modifications, de ('adapter a d'autres ordina- 
teurs. La sauvegarde se fait sur K7 et, avec une impri- 
mante, on peut sortir tous les cahiers necessaires a 
une bonne gestion : cahier d'achat, de ventes, de char- 
ges et les deux cahiers de tresorerie. Avec 48 K de 
memoire. on peut sortir directement le journal d'un 
mois complet ! 

Christian IUMG 

II faut tout d'abordentrerlenum6rodecompted&bit puis lemontanl 

TTC correspondant. Pour avoir la contrepartie en credit, il faut 

entrer en d6bit et ensuite en credit pour terminer I'operation. 

Pour rectifier une erreur ou enregistrer. i! suffit de donner une date 

superieure a 31 . Chaque operation peut etre repetee plusieurs fois CAISSE 53 

pour la mfime journee. les repetitions sont indiquees a droite de 

lecran et. pour les rectifications, il faut indiquer le numero corres- 



pondant, S'lly a repetition duhbelleoudumontant TTC (au debit ou 
au credit), il suffit de taper une fois au debit etderentrerO au credit . 



INSTRUCTIONS 

ACHATS 607 A - TVA t (repetition 0) 
607 B -TVA 2 (rep 1) 
607 C - TVA 2 (rep 0) 
607 D - TVA 2 (rep 2) 
607 E - TVA 3 (rep 0) 

VENTES 707 A- TVA 1 
707 B - TVA 2 
707 C - TVA 3 
706 - Prestations TVA 2 (reparations) 



8ANOUE 512 -p Debit (rep 5) 
L Credit (rep 6) 



I 



D6bit (rep 1) 

Credit (rep 3) 

5 



CHARGES 6 L - Charges locatives 

6F - Entretiens/Reparations 

6 M - Prime Assurance 

6G • Documentation 

6 H - Remuneration 

61 -Publiclte 

6 J - Transport/Achats 

6N • Deplacements 

6 - Frais P.T.T. 

6P - Cotisations 

6R -InterotS/Empmnt! 

6 -IntGretsC/C 

6 K - Divers 

6S - Divers non/TVA 

6T • R6mu exploit 

6U • Penalitfi Flsc. 




I 



401 - Fournlssours 
403- E'fets a payer 

411 -Clients 

413- EKets a recevoir 



Article 5 - TV. A. 1 (7%) 

Article 4 n 

Article 1 r TVA. 2 (18,6%) 

Article 2 J 

Articles - TV,A,3(33.33%) 



ne sont pas memorises. 
mats sortent sur le journal 



La UtmlHe tfM ortffnateura dp table sharp mz 80 dispose dim 

BASIC sur cosseife conlrairemeni a la plupart des constructeurs qui 
foumissem un BASIC resident en ROM Un des avantages de celte 
tamille est de permettre unc mise a four et une evolution du langage 
Dans celte oplique, It existe plusieurs versions des BASIC commer- 

per SHARP ou par certains distributees 
Aussi. nous prions nos lecteurs. lorsqu'ils nous font parvenir un pro- 
gramme pour ces machines, de touiours preciser quel est le BASIC 
utilise 

£n outre, en cas dutihsation dun BASIC autre que celui Iivi6 avec la 
machine, il serail souhaitable de nous en taire parvenirune copie au 
dos de la cassette contenant le ou les programmes que vous aime- 
ricz voir figurer dans nos colonnes. 



1 01 e if nn>8 (hen print maoBj. 

3 

i6?e if zi»i rt-cn '.tirut-iaaaaaeaaaaaasBB 



& 



fcO 



M an 

48 ™iNT-f'l.-iiL3'*'t.3-»iL*-e!L5-e:L0»e 
59 0*iC«-»:Bl-«:*«.a.-EI-a lilaB 

0« input-entree/sortie coopta c£/S) "jb* 

79 if Ba-"S* G0T03228 

BB PRINT"!' 

98 INPUT "ENTREE CASSETTES ? (0/N) ' \M 

IN 01nftl«C3l3,ftlC313,BI«C3l.l),B>C3l,l) 

. L"> 1 • C 3 1 !,DK3I 1.EHC31 .23 

1 IB 0lnElC3l,3).FI*C3l),FK3l3,ft2C31],B2 

C31).C2(3l J.D2C313 

119 Din ■3l31,3),C3(31,5),03C3l,6),83»t 

31. 3), CMC 31, SJ, 03*C3I, 83 

138 Din A44C31.33 

14B Din ft3*C31 , 1 ),ft3C3! ,1) 

158 IF A*«*0* TmEnPR!nT"0-: 50T018B 

188 IF M-'H- G0T0338 

' rs QOT099 

198 ROPEN'-ENTREE COOPTA" 

198 FOR X- a TO XI 

2ee input/t a!«cx),ahx) 

218 FOR T=e T01 

228 INPUTS B]«CX,Y),BICX,Y3 

238 NEXT Y 

248 INPUT/! OltCXJ.OlCX) 

258 INPUT/T FI«tX3,FKX) 

208 FOR T-8 T02 

278 INPUT/T E1«CX,Y),£|CX,Y) 

298 NEXT T 

299 INPUT/T A2CX),82CX3.C2(X),02CX3 

389 FOR Y-8T0I : INPUT/T A34CX, Y3 ,ft3CX, Y3 

:NE*TY 

318 FOR Y=>8 TO 3:lNPUT/T B3«CX,Y),B3CX, Y 

JSNEXTT 

328 FOR Y-9 TOS :INPUT/T C34CX, Y) ,C3(X, Y 

):N£XT Y 

338 FOR f=-Z TO 6;INPUT/T D3«CX, T3.D3CX. T 

JJNEXT Y 

34B FOR Y.8 TO 3 

358 INPUTS A4«£X,YJ 

388 NEXT Y 

378 NEXT X 

388 CLOSE ;x=xi 

398 PRINT'S*: PRINTTABCI63 ;"OrtTE:";X 

418 IF X>31 THENG0TD2893 

428 IF HlOX THEN B1=8:E1=8:L4=0:C3'0:D3 

=3 =83=8 : A3=9 ir_»0 :ri4*="B" :rt3*="9" 

438 H!=X:L«8:L3-8 

443 PRiNT/P 

DATE :-;X;" "J 

458 PRINT/P- 

468 PRJNT--PSInT;PRInT=PRINT:PRJMT:PRIHT 

478 PRINT/P 

488 INPUT"N. COJ1PTE DEBIT ■' !U28« 

498 IF U28*='0" THENPRINT'B*: GQT01B28 

508 PRINT/p U2B*; 

518 R22»=RISMT«CU28«, I) :T2I*=LEFT»(U23*, 

I) 

528 IF T21* = "2"TMENm«=-innO.".-PRINT/PTfl 

BCI23H1I*}! GOSUB62B 

538 IF T2l*-"6"THENIFR22«<"F- THeNm* = "A 

CH«T-: eosuaesa 

548 IF T21«='6"THENIF R22i>'£" GOSUB1228 
558 IF U29* = *512"THENm« = "3ftNQU£ " :60SUB 
1319 

569 IF U29«=-53"TH£Nni«="CAISSE " :L9=1 

570 IF U2B«-'4I1"G0SU81679;IFL9-1 THENT2 
l«=°5":R22*--3" 

589 IF U2B«=-4l3'-G0SLiei679--IFL9=1 THENT2 

1«--5':R22«='3- 

598 IF U28«=*481 "G0SUB1 670 : IFL9= I THENT2 

.•-"3":R22«-"3" 

6BB IF U29t»-483"GOSUB16?0:IFL9=1 THENT2 

1«"*5-:R22«=-3'* 

619 GOT 0489 

928 IF U23«""215' , THEN INPUT'LIBEL " ;ftB» i 

rW'ftB^UHPUT-TTC "JA8 

838 IFU28«=-215"TH£NPRINT/PTfteC4S);CCINT 

aA8/.01!BO)*.53 3/199):PR!NT/p:R=Ae 

348 IFU28«=-2!5"THENPRINT/PTflBCl2)rTiJA' 

iTftBC453 :CCINTCCft8*!S.6B31*.5)3/l093 

B58 IFU28«="2!S"THENPRIHT/P 

668 IF U29«="2l81"THEN INPUT'L I8EL " ;B8t 

:n3»=88«;INPUT"TTC * ;B8 

878 IFU28«-"2181TMENPRINT/PTl°iBt45);ttIN 

TaB8/.9l1803*.53)/IB8)iPRINT/p:R=B8 

B88 IFU2B« = '2181 "THENPRINT/PTftBC 12) ; "TUft 

'•;TftBC45:i;r£INTaB8*13.S833*. 533/188) 

898 JFU284=-218!-'THENPRINT/P 

78B IF U2B*="2t83"TH£N INPUT'LISEL "iC8« 

:rl3«=C8«:lNPUT ,, TTC " ;C8 

718 IFU2B»3'2183"THENPRINT/PT«B(45J }CIIN 

TCCC8'.ei19«3T.533'-ie83:PffINT'P:»='Ce 

720 IFU2a«="2!83"TneNP»IMT'PTflBtl2);"TlJP 

" ;TftBC453 jfCINTt CCS* I 5. 6833*. 53 3/188) 

738 IFU28«'"2183-TMENPRINT/P 

748 IF U2e« = - , 21S4-TMEN INP13T"L18EL " i08» 

:n3»^D8»:INPUT' , TTC " ;DB 

753 IFU20»3-2184"THENPRINT/PTflBC45) ;C t IN 

TCtD8/.BI 1 80 3*. 5))> 188 3 :PR|NT/P:R»08 

768 IFU2a*3"2IB4"THENPRINT/PTrtBt 123i"TVfl 

" ;TABC4S) ;[CINTCtD8*l5.6B3)'. 5)3/188) 

778 IFU28*'"2184"TNENPRI"T^P 

768 IF U28« = "28 ,, TH£N 1NPUT"LI8EL "jEa*:" 

SMEBtMNPUT'TTC - ;E8 

798 IFU28i='"29"TNENPRIf»T/Plft8(453;tCiHT[ 

(£8/. 01 186)T,5))/iaB) :PRINT'P;R = EB 
888 ]FU2B« = -28"THENPRINT/pTfiBC12J; '^-"V 1 1 
Tft8[45);(CINTCCEBI15.683)*.5);/l98) 
818 IFU20#*' , 20 , 'THENPRINT/P 



La Redaction 

828 REtlJRN 

830 PRINTER TflBCI?) !M!» ; 

840 IF R22t<>"fl- G0TO3B8 

8^0 iNPUTTOURMi -ifll*tXi!|NPUT , '1RTICL 5 

"IftUJOiR-fllOO 
889 PRINT/P TrtBC45) iC(lNIt(ftl(X)/. 8I073- 
.5))'100):PRINT--P 

878 PRlNT/PTflBCI2);'TUfll-iTflB(45)(tCJNT[ 
[0ltXl*8.542)*.5))/|BB) 

B8B fll(X)-(CINT(lfllCX)/.OI9?l».5))/1B8) 
898 PRINT/P:PRINT/P 
388 IF R22t<) , 'B- GOTO! 080 
918 IF 21*1 THENPRINT TftBC30); , "REP:"iB1 
:G0TO939 

928 IF B1>! THENPRINT TflBt38) ;"REP •■•' :B1 
938 IF 2I>1 THEN ]NPUT"BBBBBaBHB88BeBBBB 



948 YaBlilF Y>1 THEN Y=8:RETURN 

958 INPUI-FOURNI. - ;BliCX,Y3 : INPUT"ftRTIC 

LE 4 " ;8HX,Y) :B1=BI+1 

968 PRINT/P TflBC453;tCINTCC8HX,T)/.011B 

6]..533'1B0);PRINT/P 

970 PRINT/PTOBC12);"TUi4";:R=BrCX,Y] 

989 PRINT/PTflBC4S3;CtINTCC3ICX,Y3*IS.6e3 

1>. 533/1003 :PRINT'P:PRINT/P 

998 BUX,Y3 = CCINTtCB1 CX,T1/.81 1 86 J t. 53 3/ 

1883 :Y=0 

1899 IF R22«0"C" G0T0IB5B 

1818 INPUT"F0UR. ' ;OI «CX3 = INPUT"ARTICLE 

I "!01CX3:R=01CX) 

182B PRINT/p TftBC45) ; CCINTC CDHX)/. 01 186 

)*.5J)/1083=PRINT/P 

1830 PRINT/PTflBa2);"TUA";TflB[45); CCINTC 

C01CX)*15. 6833*. 533/1 883 

1848 DlCX)-CtINTt£OlCX3/.01 1 863*. 5) 3/1 88 

3:PRINT/P;PRINT/P 

1058 IF R22*<>-0" GOT011S8 

186B IF 21 = 1 THENPRINTTflBC38) ;'*REP:-' JE1 : 

GOTO 1080 

1878 IF £1)0 THEN PRINTTPBC38) ;"REP : " ;Ei 

1088 IF El = 1 THEN INPUT-BBBaaaBaSBSBSBBa 

3333S3£33SS33gBa333S" JE1 

1099 Y=£|:IF Y>2 THEN Y=a:R£TL)RH 

1 108 INPUT'TOURNl. " ;E1*£X,Y) :IHPUT"PRTI 

CLE 2 "iEKX.Y) 

1118 PRINT/P TPBC45);CCINTCCE1CX,Y3/.B1I 

863*.5))/iee3:PRINT/P 

1128 PRINT/PTflBCI23; , "PJft ,, ;;R=E1CX,Y3;El = 

El»l 

1130 PRIHT/PTflBC45);CCIHTCCE!(X,Y)*l5.6B 

3)*.5))/10B) 

1149 EKX,Y)=CCINTCCEICX,T)/.0I186)*.5)) 
/1083:PRINT/P;PRINT/piY=0 

1150 IF R22*0-E° G0T01299 

1168 INPUT ■TOURNI. " JF 1 *CX3 i INPUT ''flRT. 
TUft 33 ";F1 CX):R=FHX) 
1178 PRINT/P TfiBC45);CCINTCCFKX)/, 81333 
33)*.5))/198) =PRINT/P 

1139 PRlNT/PTftBCI2);"TUft3";Tft8C45);CCINT 
CCFKX)*25Jt.S))/J08) 

1130 FKX) = CCINTCCF1CX)/. 01 33333)*. 5)3/1 
883 :PRINT/P;PRINT/P 

12B8 T=8:RETURN 

1210 IF 21 = 1 THeNPRINTTfl8C303;-'REPi' , ;L4 

:G0T0I23B 

1229 IF L4>0 THEN PRINTTPBC30) ;''REP i " iL4 

1238 IF 21=1 THEN iNpuT-ssaBaBaaaasBSBBB 

BSgaSBBSBBBBBBaaBBB" ;L1 

1243 T-L4UF L4>3 THEN T=8:RETURN 

1258 FOR J=8 T0I5 

1263 READ K1«,m* 

1278 IF R22t=KI«THEN PRINT fll*; : iNPUTMt 

CX,Y):PRINT/PTftBC123;ni«;:L4=L4*l 

1289 IF R22*-K1« THENft4-UftLCft4»CX,r)J :R- 
B4 

1290 IF R22t=KI« THEN1F K1 *<*K"90SUBI 778 
:G0T0131B 

1 380 IFR22»-K I •TH£NPRINT/PTflBC4S3 ;ft4 tPRI 

NT/P=PRINT/P 

)3)0 IF R22t-K1*THEN M«CX, Y)-R22**ft4tC 

X,Y) 

1328 NEXT J 

1330 RESTORE 

1348 DftTft L, CHARGES LOCATIVES 

1359 DftTft F.ENTPETIENT/REPflRftTIONS 

1368 DftTft n.PRIHE ftSSURftNCE 

1370 OftTft O.OOCUnENTflTION 

1388 DftTft H.PENUnERftTION INTERnEOIftlRE 

1399 DftTft I.PUBLICITE 

1400 OftTft J.TRPNSPORT/ftCMflTS 
1410 OftTft H.CEPLflCEnENTS 
1429 OftTft O.FRflJS P.T.T 
143* DftTft P ( COTISATIONS 
1440 OftTft 0, INTERETS C/C 
1458 DftTft R, INTERETS EflPRUNTS 
1460 OftTft K.DIUERS 

1478 DftTft S.OIUERS NON/TUfl 

1488 DATA T,REP1U. EXPLOI 

149B DATA U, PENAL. FISC. 

1500 T=0: RETURN 

1510 PRIKT/P TOBC 123 ;ni* ; 

1520 IF 21-=! THENPRINrTflBt38);"REP;"jC3 

rGOTOI540 

1538 IF C3>8 I HEM PRINTTflB(30);"REP:":C3 

1540 IF 21-1 THEN INPUrfflBBBBBaBBBBBSBBB 

BBSBaaBBaBBBaBBBBBBB" ,C3 

1558 T=C3UF C3>5 ThEn r=6:PETuPr' 

1580 1NPUT"LIB£LL£ - ;C3«CX, T) : INPUT"DF.BI 

T BftNQUE " ;C3CX,Y3 -n3«-C3<CX,Y) 

1578 PRINT/P Tft8£4S);C3CX,Y) iPRINT/PiR-C 

3CX,Y):C3»C3*|:T»8 

1588 RETURN 

1596 PRINT/P TABCI23;nit; 

1600 IF 21-f THENPRINT TftBC3B3 ; "REP = " 1«^ 

: GOTO) 520 



1039 Yaft3.[F P3>l THEN r=Bi»ETURH 

1640 IHPUVXIBELLE " iA3*CX, T) : INPUT ■ DEB I 

T CAISSE "iA3CX,T) ;rl3«=n3«CX, ') 

1858 PRIHT/P TftBC45) JA3CX, T) :P» ■; 

3CX,Y):ft3=A3'l I Y=B 

1668 RETURN 

167B FOR J--B ra?? 

1880 READ K2i,f11l 

169B IFU20«=!C2ITHEHPRlNTnT*:PRlNT/PTftBC 1 

?);I1I*;:INPU1-LIBELL£ ' ;A1 01 :H3»-A1 0« 
1783 IF U2B*-K2«TH£N INPUT AI8:R=AI8 
1710 IF U29*=K2* THEN PRINT/P Tft8C45)iAI 
0'PRIHT/P 
1728 NEXT J 
1733 RESTORE 
17-13 RETURN 

1750 DATA 4fll,F0URNIS£EUR(ftCHftT),4B3,efF 
ET PYERC ftCHfl), 494, FOURM I SSEURCIfHO) 
1763 DATA 405.EFFET PY£RC IMHO) , 4 1 1 , CLIEN 
T,413,EFFET RECEU0IR.432.AUTRES 
1770 PRINT/P TABC45);tCJNTCCA4/. 81180)-. 
5))/10B) :PRINT/P 
1780 PRINT/PTftBCI2) I'TUA" i :R«A4 
1790 PR!NT/Prft9C45);(CJMTCCfl4*15.6B3)*.S 
))/|00) 

1888 A4=tCINTCCft4/.ai1B8)*.5))/18e::M«C 
X, Y)=STR«CA4):PRINT/P :PRINT/P 
1B18 RETURN 

1828 PRINT *■' sPRINT TABC I 6) ; "DATE ="iX 
1830 PRINT :PRI NT ipRINT -'PRINT iPRlNT iPRINT 
: PRINT 

1B40 INPUT-N. COPPTE CREDIT :" |U2* 
1858 X2=C3-1 :X3=A3-1 
I860 IF n4«<>"9"THEN n3*-f14« 
1878 IF U2« = 'B-TMENPRINT/P rl3«:PRINT/P; 
GOTO330 
1999 PRINT/P U2»i 

1838 U4*=RIGHT*CU2i, I) ;U3*=LEFT«CU2«, 1 ) 
1900 IF U2« = '706 ,, THEWn2«- , -ARTICLE 3':PRI 
HT/PTA9C30) ;I12« ; :G0SUB2288 
1318 IF U34=-7"THENIF U4»<-D' 1 THENG0SUB2 
089 

1328 IF U3*="1-THENTl2*-"EnPRUNTS " :PRINT 
/PTftBC303 if12*; :G05U9283a 
1338 IF U2«- r 512' , THENn2«-"BftN0U£ " :PRINT 
/fTMC30);rl2»; !G0SUB23B8 
13« IF U2<="53"TH£Nri2« = , 'CftISSE -:PRINT/ 
PTABC30) ;n2»;:GOSUB2540 
)339 IF U2«="401- GOSUB2710 
1968 IF U2*='"403'' GOSUB2710 
1378 IF U2«=-4I1" 60SUS2718 
1988 IF U2i>"413" GOSUB2710 
199B GOTOT840 
2808 IF yUCfl" G0T02B8B 
2818 INPL)T"UENTE TTC CTUfll ) -;ft2CX) 
2328 IF A2CX3-8 THEN A2CXJ-R 
2338 PRINT/P TABC303 ;"UENTE TUftl"; 
2348 PRINT/P TABC65] j C C INTC CA2CX3/.8I 873 
*.5))/108):PRINT/P 

2050 PRINT/PTABC30)r'TUfll " ;TABC6S) i f C INT 
Ufl2CX3*6.512)*.S3)/l003 

2080 ft2CX) = CUNTCCft2CX)/.3IB?)*.5))/|003 
: PRINT/P 

2079 PRINT/P=PRINT/P 
2088 IF U4«<>-B" GOTD2160 
2098 INPUT-UENTE TTC CTUft2) " ;KCX) 
21B8 IF B2CX)=8 THEN B2CX3-R 
2118 PRINT/P TABC38);"UENTE TUA2" ; 
2128 PRINT/P TABC65);CCINTCCB2CX)/.01 I B6 
)*,5))/1903iPRINT/P 

2138 PRlNT/PTftBC3B);"TUA2";TABC65)iCCmT 
CCB2tX3*15.683)*.533/|08) 
2140 B2CX3»CCINTCCB2CX)/.ai166)*.5))/188 



) 

2159 PRINT/PiPRINT/P 



2168 IF U4«0"C" G0T02248 

2178 INPUT"UENTe TTC (TUA3) -J02CX3 

2IB9 IF D2CXJ-0 THEN D2CX3-R 

2198 PRINT/P TABC30)ruENTE TUft3" ; 

2208 PRINT/P TftflC6S);£CINTCCD2CX3/. 81333 

33*. 533/1983 *PRINT/P 

2218 PRINT/PTABC39) i"TUA3- ;TflBC653 iC C INT 

(C02(X)*2S3*. 533/198) 

2220 D2CX)>CC INTC CD2CX)/. 813333)*. 53 3/19 

2238 PRINT/p:PRINT/P 

2248 IF L=l THEN RETURN 

2253 IF T21*»-5- THEN IF R22«=' i 3' , THEN ft 

3«CX,X3) = ,, ft - »ft3«CX,X33 =L-1 :RETURN 

2268 IF T214--4" THEN RETURN 

2270 PRINT'ERREUR!!- ■■F0RT=9T088e:NEXTT:R 

ETUHH 

2200 INPUT -DEPANNflGE " ;C2CX) 
2298 IF C2CX3=8 TW£N C2CX3=R 
2380 PRINT/PTflBC65);aiNTCCC2CX)/.fl1186) 



2318 PRIf(T/P:pRlN7/PTA8(3a)i-TUft*iT«t65 

:7:x)«lS.593)*.S))/l80) 
2328 C2CX)-CCINJttC2CX)/. 91 196)*. 5)3/189 
) 

2338 IF L-1 Then ; 

2349 IF T2l«> J S i ' THEN IF R22«-'3'1>€N ft 
JIIX,X3).-A--A3«CX,X3):L-1 iRETURN 

2359 IF ti .*-■ n rwn (gnuw 

2369 PRINT'ERR£URir:FORT-8T09e3 ' 

ETURN 

2378 PRINT/p TAB(38):nzt. 

2388 IF I(b| THENPRlHTTfteCSB) i'REP!-j03.' 

GOT 024 03 

2390 IF 03)9 THENPRINTTftfl(30) i'REP; - iD3 

2408 IF il«l THEN INPUT '183988 000030300 



2410 T»D3:IF Y>6 THEN Y-B;R£TURN 

2423 1NPUT-LI8ELLE ' ;D34tX, Y) i IF D3ICX.T 

) = -B" THEN D3«tX,Y)i>n3* 

2438 INPUT-CREDIT BftNQUE " i03(X, Y3 =03-03 

2448 IF D3CX,Y)=8 THEN OStX.YjsR 

2458 PRINT/P TABC6S);D3CX,Y3 

2460 PRINT/P 

2470 IF L=l THEN RETURN 

24B0 IF T2I»»' , 6" THEN n4*>03»CX, Y3 : D3»t 

X,T3 = ' , 0"*03.(X,Y):Y-8:L-1 ^RETURN 

2490 IF T2l*=-2" THEN r4«"03«f X, Y) :D3t(X 

,Y) = , 'D' , *03*(X,Y):Y=a; L-1 RETURN 

2503 IF T2H = H 2- THEN f14«»03«CX, Y) :03»tX 

,Y)= n 0'*D3*(X,Y3iY=8:L=1 :RETURN 

2518 IF T2J«--4" THEN ri4*'D3itX,TJ :D3* £X 

,Y)t-D-*03«CX,Y).r.B!L=l :RETURH 

2520 PRINT-ERREUR - :FDR T=-BTO8e0 :Y»B :RET 

URN 

2538 PRINT/P TA9t30Jin2»; 

2548 IF 21-1 THENPRINTTftBC38);-REP:";B3 

: GOT 02568 

2550 IF B3>I THEN PRINTTftBC38);'REP : " JB3 

2560 IF 21=1 THEN INPUT"393a3a33333BaSSa 

BBBsaBBaaaB3B3SSSaBB" 183 

2578 Y»B3HF T>3 THEN T"0;RETURN 

2588 INPUT-LIBELLF *_jB3*(X, f Ijlf 33*£X,' 

3- 0' THEN BSTcXi i*)*n3* 

2598 INPUT-CREDIT CAISSE ' :B3£X, Y) :B3=B3 



2680 IF a3fX,Y)-8 THEN B3£X,Y3»R 

2618 PRINI/P TA9E6S) ;B3£X.Y) 

2620 n4«-B3«CX,Y) 

2630 IF L=>1 THEN Y=8: RETURN 

2640 IF T21«="S , TH£N n4«=B3»(X, Y 1 :l = 1 

2650 IF T21*-'b" THEN B3*CX, Y)-' E' -BSttX 

,Y) jC3*CX,X2)=*B-'*C3*CX,X2) :Y=0 RETURN 

2668 IF T21»="6'' THEN fl4*=B3iCX, Y) -B3«(X 

1 Y)="0'-B3«CX,Y):Y«B:L-1 :RETURN 

2670 IF T214--4" THEN f14«-83*CX, Y) : B3»t 

X,Y)»-O'*83«CX,Y3:Y-0;L-1 ^RETURN 

2680 IF T2l«--2- THEN n4«-B3«(X, T3 =B3»£X 

,Y)=-D n *B3«£X,Y):Y=8:L=l =RETURK 

2690 IF T21« = , '2" THEN H4«=83«CX, T3 ' B3I£ 

X,Y3"" , D"*B3«CX,Y3--T-BiL»1 : RETURN 

2780 PRINT"ERREUR-:FOR T-8 TO B68:nEXT T 

:Y=8:RETURN 

271B FOR J=0 TO 22 

2720 READ X3«,fl2« 

2730 IFU2i=K3*THENPRINTf12* :PRINl/PTA8C3B 

);rl2*:: INPUT 'XIBELLE " ;B5«:n4i*B5* 

2749 IFU2<=X3«THEN INPUT "TTC: - ;B5 

2750 IF 65=8 THEN B5*R 

2760 IF U24-K3* THEN PRINT/P Tfl8£B53iB5: 

PRINT/P 

2770 NEXT J 

27B8 IF L=l GOTO2B20 

2798 IF T21*="5-THEN IF R22*="2"THEN C 

3«CX,X2)=-"C'*C3«CX,X2)iL»l 

2880 IF T2I *--5- THEN IF tt22»-'3"THEW A 

3»CX,X3)»"C"*A3«CX,X3)iL-l 

2810 RESTORE 

2820 RETURN 

2B3B INPUT'LIBELLE ' ; H* :rl4«-Mt : INPUT'E 

tlPRUNT TTC - ;I4 

2B48 IF 14-0 THEN 14-ft 

2&5B IF L=I GOTO2880 

2860 IF T2l«»-S-TH£N IF R22«=."2'THEH C 

3«CX l X2)-"C*C3«CX,X2):L-l 

2878 IF T2U--S- THEN IF R22«»"3"TMEN ft 

3»CX,X3)=-C-*A3«CX,X3)JL-1 

2889 PRINT/PTft8C65) i 14 :PRINT/P s RE TURN 

2898 PRlNr'O" :INPUT" ENREGISTREnENT SUR 

CASSETTE 7C0/N) ■' ;flS* 

2900 IF ASi^'O" G0T0296B 



A suivre : 

En raison de /a longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 



-.5))/ 



9) 



La Redaction 



tfevenez 

SHARPENTIER 




'[■■4<;-r J 



LES BONS COMPTES FONT 
LES BONS AMIS 



Entrez le listing et faites RUN, vous voila sur Antenne 2, 
mais votre ordinateur sera difficilement battu : en 
moins de trente secondes, la reponse est fournie, 
parfois en une minute, rarement plus. Vous pouvez 
choisir six nombres vous-meme ou laisser votre 
Commodore 64 les tirer au sort. 

Olivier CAHEN 



140 REfl-*UTEUft BOCTEUR OLIVIER CflNEN.- 



210 REO'DEFINITION BE" VHLEURS.. 



* -st :■■■- i * ns»(i>»-2 - nB*t2>-'i*2- h» 

i M*<.1;-f<St:%> ftB*<S)-S8l'.0> A8*(7>-HB*10J 
3 «B*(8>-«B*U> RB*t9J-ftB»<l> *8*(18>-ftB*(l> 
I R*SU1>-h«(2j P.B*<12>-RBf<2; RB*C 13..flB'<2, 
U-flBtOj F18*U5>-P.B*<3> flBf'.16J-«B«<3> 



3)-"I«2-ftB*(< 



298 fiS*(\7>-f 

299 R*te>-- 

3*8 Rt14)--4.3 
319 R»(3>-'4*6 ' 
328 R*(6>-'3«6 " 
339 JttCj-MW - 
349 R*(3>-*4*6 " 
339 RK9)--5« * 
369 R*'.10)""4-3 • 

378 R*(Il>--4-6 ' 
389 R»a2>-"3-6 ■ 
399 P*M3>»- 4*5+6- 
499 R*<14j--4+3««- 
418 R»<13>--4*5-6* 
429 R*<16>.-4»6«- 
438 R*<l7)--4*6-5- 
448 R*n8)--5*6»4- 
458 R*U9j--3*d-4- 
469 R*(29^--4»3»6- 
478 R*(21>-"4«3-6* 
4B9 R*<22<="4»3»6- 
499 R*123^3-4«6-3* 
598 R»<24;--4»6*5" 
318 R*^23)-"3«6-4* 
328 R*< 26 >-" 5*6*4- 
539 Rf<27>--4-3*6" 
349 R« (28) --4-3-6" 
359 R*'23J--«-6»5- 
369 M<38>--4-6-3* 

379 R»01>--3-6«4- 
398 R*<32>--5~S-4- 
598 RR-8 







i.-; ;£-1-CKiI* TODE E€ JEU. . 



I PRINT PRINT PRINT PRINT ■'l-L'Oft BINfttEuS TIRE LES Ct^IFFft£3■■ 

) PR I NT "2- VOLT, INTR09U1SEZ LES CHIFFRES" 

} CETOf IFQ*="TKEH670 

J IFCI»--1-IhEH769 

) IFQ*-"2'THEN940 

} O0TO639 



749 REW"TIRJTC£ fit! SORT,, 



■■...:..- ■- ::■■■■■■ .:.■■■ 

I F0RI-1T06 
) RL*LE*KR*) 

1 F*-STR*(RMDCU«.OOCTI)) 
) FX«VH_'.niBi<F».6,n) 
) RH-aKT(<BL/2)»RHD<FZJ)«J*l 
5 PH*-niitlfi*-RH,2> 
» ««I}«VRLCRMf; 
J Rfl*-RICKTf<Rt,RL-RH-l> 
) RG*-LEFTf(Rf.RH-l> 
i RT»-Rt>*-»RDI 



5 NEXT 

) FQRI-1T06 

) IFRi;U^-99THKtV.f 1,-180 

) HEX71 

; -*:.-i>.T(rhikij«8SS/.189 

t &OI0968 
> PR INT 'n- 

-■ =-:■■: :nt=-:l.j;;e; les moweres- print print 

■ fOR1l=lTi;6 P=-!MT-«*IJRE-H-«"; - II*ijTr-:.. t.j I 

■ :■■-".'■ ■■■.:ii-b n r F- C ■_ ,s !s ■ si:. 



3 p£n-« 



1820 fiEM-WFKMftOE BEi £ 
1B39 REn 

1948 Tii--eee8D9- 

1858 PRINT PRINT 
1060 RESTuPE 

1878 :■■;* 

1888 PRINT PRIKT-- 



1118 PR1H1 
1128 REM 
1138 REM 
1140 REM- 1 



n;s =e;v.r.lcul 

1168 REM 

1179 F0R01-IT013 

1188 REfl»ta,.H(2> 

1198 P.8(0J.FKUKI>.. 

1289 «BC]J*F«<N(2>> 

1218 fiBC2j=flB(U*ftB(8) 

1228 fl3(3^-M6i8i«PlBa> 

1239 nB<4,.ri6iif<B<0>-flB:i_V 

1248 F0RC2-1KW 

1258 REM»I(3> 

iii<t h=h:-:<h<3>> 
i;t'3 r>:pt-9T04 



1288 S 



**■! 



1299 fi8CV»3 + 2^ = ftij' = ..(™;,-ii3(T>»/M 

1388 fi»(V»3+3> = '»B!+fiB<T»/H 

1310 IFHB'.lJ.8THEHflB<T> = l AB*<T>«-7* 

1320 RB(VI3.4j-'Pr;^-^B'.t,i/h 

1338 "EXTT 

1348 REF>DN'.4>,N<5).H(6) 

1338 R<0>-8 

1369 R<l>»FC«NC4j> 
1379 R(2)-R5i(N<3)) 

1389 R(3>"ftK<NC6)> 

1398 R(4>-R(l)*R(2> 
1489 R(3CR(1>'R<3) 
1418 R(6>-R<2)*«C3> 
1428 R(7)-R<D«R'2) 
1438 R{8>-RC1>«R(3) 
1448 R(9)-R'2)«<3> 

1458 R(ie)-flBSCR(U-R(2)J 
1468 R<ll;-RBStR<l)-RC3)> 
1470 R(12)-flBSCR(2)-R(3>> 
1488 R<13)-RC4)»RO> 
1498 R<14)'R(4>«R<3> 

1399 RU5)-RBS<RC4>-*<3>) 
1518 R<16)«R(3>*RC2> 
1328 Rtl7)-HBSCR<3»-fit2>) 
1538 R(ie)"R<6)»RU> 
1548 RC19>-HBS<R<6J-RC1>) 
1359 R(28)-R(7)«R<3> 
1368 R(21)»PBS<R<7)-Rt3>> 

1370 R<22>-RC7;*RQ) 
1388 RC23j-flBSCRC8>-R<2>) 
1596 R<24J*RC3)*R<2) 
I£?3 cir.L'jff<bS<.riWt-X'-lii 
1618 R(26)-R<9>*R<1> 
1628 R(27)-RU8J*ft<3) 
1638 R(28>-flB3<R<18)-RC3)) 
1648 R(29>-RC11)*R(2> 
1659 R<38)«fl3S!RUl)-RC2>> 
1668 R(31>>RC12)«R(1) 
1678 R<32)-RSS(RC12>-R<U> 

1668 IFTH>"08eiee'flMW8THEN(KlSUB 1 

1698 F0RI-3T019 

1700 PRlHT-«-TI» 

1710 lFflBClK>lMT<RB(I>>THEM1768 

1728 F0RJ-er032 

1738 IFRB';i)-R<J)TKEMl&9e 

1748 IFR<J)-f¥tt THEHW-1 0OT01898 

1759 KEXTJ 

I76B NEXTl 

1778 NEXT02 

1788 NEXTO! 
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1998 
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2188 
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2389 

2318 
2328 
2339 
2348 
2358 
2368 
2378 
2388 
2398 
2480 
2418 
2429 
2438 
2440 
2430 
2468 
2478 
2480 
2490 
2308 
2318 
2329 
2538 
2340 



RETURN 

PRINT PRINT PRIWT PRINT PRINT PRINT PRIMl 
PRINTRJGHT«U1«,3>.-SEC- PRINT PRINT 
Sl-VHLIL£FT*CR*tJ), IJ) 

s:-.-l ■.?::--!. i%.;.- . ; 

S3-VHL<niB»CR*;Jj.3.1 f> 
;".*l(.;"ll»;lill,l)) 

?:••=■_ ;*::■■--*■;==(, ;>.i)» 

;:i--::>-.-*,; . . . . 

:-••■::».;..■ ^ : 

23*-flIE*(R3»cij.2 I tJ 

XI-FK(NlSl>> 

X2-«X<N^S2>) 

X>«{(N<SJ)> 

X6-RZ(N(3j) 

X4H0t(HCS4)> 

X5^R(N;S3J) 

IFX1-8THE>*ii«x3 GOT02118 

iF«-aTMEf4Ji-xiooT02iie 

1 F X 1 -8P*OX3 *B T hEX2 1 68 
IFZI*-*+-THEMJl-Xl*X3 
IFZ1»*---THENW1-X1-X3 

IF21*»-»-TH^4Jl-Xl«X3 

: r -Z. L '--E-*v2-Ul &0T02179 

IF22»----THD*a-Ul-X2 

IF22»----THENW2^1-X3 

IF22*.-«-TH!NW2-ul«x2 

SOTDZin 

HMQ 

Ren 

M3-U2«X6 

I PX4-8Th«>4*4-X3 OOIO2240 
; 1RX3-8TKE.SW4-X4 OOT02249 
) IF23*--.-THE»*4.x*.x3 
) IF23«.--'T>«NW4.>;4-X3 
) IF23»"-»-T>«NW4")(*»\5 

J REn 

) lF(W>rtSS(U3-*W4)T>eHZ2»»-*- 
) :FiWM-flB5tW3-W4JTMENZ2*---- 
1 IFftfC>flJS(«34i*4>TMEN2;»»-«- 
J lFXl-eORX3-BTMEN2jeO 
J PRINT XI, Z\t. X3. '••iHl 

iFm-e«x2-eTMEN233e 

PRINTU1.Z2I. X2; ->',«2 
1PRR-ITMEN2390 
IFu2>80RX6-8 THtN2339 
PR1NTH2.-*-; xfi, -■-,«3 
I FX4 .0ORX3-8 THZH2378 
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PRINl 

PRINTU3.22*, M4, -■ 

0OT0658 

DHTfil,2.83.4,5.6.M 

Dflrn2.3,81.4.3.6.&4 

WTR3.4,81.2.3.6.02 

D«Tft4.5.01.2,3,6.02 

WTfO.6,01.2,3.4,02 

tWTfl:,3,02.4,5-6.94 

MTfl2,4.01.3,3.6.83 

tWTH3.3.01.2.4,6.02 

WT«4.6.81.2.3,3.62. 

WTR1. 4. 82,3,3.6. " 

DOTfll.3.02,3,4.6.„ 

WTRl.6.02.3.4,3.03 

MTM2.1-01.J.4-6.83 

WTH2.6.01.3.4,3.O3 

WTN3.6.01.2.4.3.02 
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1.4.3.04 
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1.4,3.84 
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1820 REfl'PESULTniS * 

1839 RErt 

1840 FORB-8T013 PRINT NEXT PRINT"F1H ETUDE" 0OTO658 



ERRATA 

Dans le programme Zorg de Frederic M£LINE pour COMMO- 
DORE 64. paru dans HEBDOG1C1EL W A, il (aut rajouler la ligno : 
101 DATA suivi de 44 virgules. 



AUTO-CROSS 



Passez entre les 20 obstacles du parcours en un mini- 
mum de temps: le record du tour est a battre ! 
Vous vous deplacez avec les touches I, J, L et M et vous 
pouvez modifier le nombre d'obstacles en ligne 21 en 
changeant la valeur de 00. De meme, les couleurs peu- 
vent etre modifiees avec les POKE 36879 de la ligne 
et le POKE de T a la ligne 12. 

Olivier TERRIER 



8 OOSUB18809 P0KE3667S. 13 P0KE639.128 P0KE32.23 PQ'.E36.2ii PGKE36879.23 CLR 



1 B-?i69.F«l«flTW.^ii «jf.EI,PEEK<:*23«ee> tCXT 

2 FORL-0ICJ7 R£flSF-PO*!Eft*L,F:HE/T FORLaflSTOta f-EBDF PWEn.l.F NEXT 

3 F0KL-48TCr55REnDF,PC*:EH*L.F I4IXT 

4 DHT068.233.233.6e.68.iC-;. 233. 68, 182, 1«. 235.233.253.253. 182. 102 

5 WTH8.68. 126. 126.126. 126.68,8 

6 P0KE36869.233 

7 1-7723 ll-7723PRINT-^- 

8 F0RT-7782T 07723 P0TET.6 JCXT 

9 F0«?T-77;i.: rr.6 NEXT 
18 FORT -8 183108 1645TEP-1 P0KET.6 PCXT 

11 FORT-8164TO7702STEP-22 PfjVET.S "EXT 

12 FORT-38400 1030488*383 P0K£T,6J«XT 

13 P0KEI.8 Tl-TI 

13 PRIHT-«-TflB(13)-QBSTftCLES- fl-INKRND':i>«416.7723) 

16 PfllNT-r-TRSegjOO IFPEEKCft>-6THEN13 

17 W"IHT<RND(1)«2*1> Oir^GOTOie.lS 

18 B-R'2'G0T028 

19 B-«*44 

28 IFPEEKtB>-6THEN15 

2i iFoo-20TMENPF-iHT((<Ti-n>/60j«ie8>/i08 ooroseea 

22 lF»-ft«2THEI*J-l:«lT03e 



■ciirn-j 




189 tl-I 

198 POKE I. K P0xen.6 P0KEB.6 

200 lFPEEK<fl>U>-XTHENP0KEn.32 P0KEB.32 G0SUB3898 - OO-O 

218 C0T014Q 

1802 lFn*O*0-THeMRETURH 

3999 F0RH-1T02 PDKE36076, 280 NEXT POKE36876, 8 RETURN 

3980 At-"- PR1HT-.T IFFF<RETHENPRlNT'BRflVOP 'RECORD BUT IU ■ fet-RF 0OTO5882 

5801 PRIHT-VCTRE TEM>S;-;RF 

5092 PRINT'lWmiSRECORD ".RE 

3807 GETV* lFVfO-0-nNDVt<>-N-THEtf5C87 

5010 IFV(»-0-TKEN0O-8 GOI07 

3828 PRINT'n- EMC 

10088 P0«?687:'.27 PRINT-^M>Ii>»»»»l» • PRINT-IM»»W WIO-CRUSS " 

18881 FRIHT-tMttW 

INT-ffl8< DE OLIVIER TERRIER**" -PRINT"*. 1983" 

10884 PRIIIT^PRINT- POUR LE VIC 20 K0O%' 

10889 POKE90O.0 

16810 C-0 FORL-0TO21PWE38400'L.C PC*fE38965-L.C P0KE7698-L. 160 P0KE8185-L. 160 C 

ieeii ifc«8Tkenc»o 

8812 NEXT 

8820 PRINT" INSTRUCTIONS?" 

0021 OETM IFft(---TKEN10021 

■ ---*<>"0-TMENFRINT'»rtUtLLE t ' PHTILM7ER 5VF" RElUfitl 
8838 PRINI-^' PWE36879.25 
0831 PRIHT-LE BUT DU JEU EST DE PrtSSER ENIRE 20 OBSTPCLES EN UN Ml 

iirwi". 

10832 PR1NT-DE ItMPS.ftvEC UKE (HJTOCROSS EN Ut DEPLftCftNT OVEC LES IWJOltS 

PRIMT-a I I J-*-L 

PRIHT" I « * 

PRINT* 

PRIMT-PENPLIIE DE 5 SCCOKDESSI VOUS NEURTE2 LES POINTS NO IRS* 

PRINT" B0»** CMrtNCE 1- PRmT'WIPPEZ UNE TOUCME" 

OETP* 1FH*"-"THEH108JB 

PRIMT"*^UILLEZ PHTIENTER SVP" RETURN 



_ >22 

30 P0KEA.6 : POKES. 6 

148 OETR* IFA»--'TKE» i RIIiT-*"INT<((TI-TI)/'68>4100>/188 0OT014O 

143 POKE I. 32 

139 IFHB-M-THEN1-1-22 X-8 

160 IFH»"'n-TMEM>I*22 K-0 

178 IFfl»«"J-TH£tlI-I-l K"7 

188 JFftl-*L"THEMl-lt|;K"7 

181 IFI>0183THENI-8IBS 

163 IFK7688THENI-7680 

197 IFPEEK(I)«6THEMI-I1 Tl-Tl-308 FORC-H03 P0KE36877. 128 NEXT P0KE36877.8 OOTOi 
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COMMODORE 



Pensez d 'instruction SPC (X) qui petit vous loire gagncr <iu temps 

dans les instructions PRINT, X est le nombre d'espaces a sauter et 

pout alter jusqu'a 255 

Dans co programme par exemplc, transformer la ligne 10033 el Ulh 

vantc en 

10033 PRINT "R ■ "SPC (iO) TSPC (21) T 

SPC(l9)"J- + -L"spc(W} TSPC {21) "M" 
Celfo instruction est valable pour VlC 20 et COMMODORE 64 
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C'EST NOUVEAU, CA VIENT DE SORTIR ! 



Y-A-T-IL UN CHAUSSEUR DANS LA VILLE ? 

C'est une des questions auxquelles vous devrez repondre 
pour gagner le concours organise par LORICIELS 
autour de sa superbe cassette d'aventure "LE MYS- 
TERE DE KIKEKANKOI". Un magnetoscope et 45 cas- 
settes a gagner! 

Au. fait, vous connaissez les cassettes LORICIELS? 
Nous avons teste "LE MANOIR DU OOCTEUR GENIUS" 
et "SEYMOUR" vous donne son avis sur ce logiciel en 
derniere page. Mais. LORICIELS diffuse plusde 20 casset- 
tes: 

POKER 65F 

Un superbe graphisme. afin de vous faire battre au POKER par 

I'ORIC. 

Jouant contre vous. I'ORIC vous donne vos cartes sans les regarder... 

a >a loyale! 

HYPER MASTER MIND : 65 F. 

Un jeu bien cor.nu. mais tres difficile, dans la mesure ou vous devez 
retrouver les couleurs et tes formes ! 

Oe nombreux niveaux de difficultes sont proposes. Un (res bon pro- 
gramme de reflexion 

OR18LE : 80 F. 

Un jeu original, avec un beau graphisme. Le terrain de balaille est un 

echiquier sur iequel vous vous battez contre I'ORIC.... a celui qui 

encerclera I'autre. 

Un jeu de st-ategie. ORlBLEMENT voire. 

DICO 5 SO F 

Vous qui trouvez fe Master Mind trop facile, essayez done DICO 5. II 
s'agit du meme principe, mais avec des mots de cinq lettres. A litre 
■ndicaiif pour vos longues soirees d'hiver, DICO 5 possede un reper- 
toire de plus de 2000 nots de la langue francaise. 



GALAXION 95 F 

Ciassique jeu de guerre de I'espace. ou une flotte de vatsseaux 

armes de lasers essaie de vous detruire .... a vous de riposter, mais 
attention, une fois louche, le Galaxion se transforme en globule 
alroce qui fonce vers vous dans un uttime effort. Ce jeu ecrit en Ian- 
gage machine es! compatible clavier ou joystick RACE. 

LE PROTECTOR. 90 F. 

Un superbe jeu compose de trois tableaux, ecrit en langage 
machine. A u premier tableau, vous survolez une ville dont vousavez 
la responsabilite. Helas, vous n'etes pas seul. les soucoupes enne- 
mies passent et repassent en larguant des envahisseurs Au second 
tableau, vous devez faire face a une pluiede meteorites. Avec unpeu 
de chance, vous apercevrezletroisieme tableau ou les dernieres for- 
ces ennemies sont a detruire. 

Larapiditedecejeuest modulabledel a 10... Avis aux amateurs de 
sensations fortes! 

ORION :95F. 

Un jeu dangereux pour !a sante ! Vous ne pourrez plus vous arreter 
d'y jouer. Magnifique jeu d'arcades en trois actes. Mouches roboti- 
sees, base spatiale.vaisseaud'attaque.- tout y est! avec graphisme, 
couleuret rapidite. 

GASTRONON : 95 F. 

Un jeu completement fou de huit tableaux en langage machine. Ima- 

ginez : il faut detruire avec une base spatiale. des choucroutes. des 

cornichons, des chopes de biere a moins que vous preferiez le mor- 

ceau de gruyere suivi d'une petite glace! 

Cen'est pas tres raisonnable mais c'est tres com ique. 100% d'action! 

J'APPRENDS L'ANGLAIS : 140 F. 

Ideal pour apprendre son vocabulaire.Au fur eta mesure. constituez 

votre fichier de mots anglais, avec leur traduction. A tout moment, il 

est possible de faire des recherches, d'editer des listes... sur ecran 

ou sur imprimante. 

Mais ce nest pas tout, un systeme d'interrogation permet de faire le 

point... el attention, I'ordinateur connait vos points faibles! Livre 

avec manuel et en prime, le fichier des verbes irreguliers. 



ANNUAIRE : 

Nom. prenom. adresse, telephone, profession, un vrai I 

Allan! jusqu'a I'edition sur imprimante. d'etiquettes auttto 

pour votre courner Chaque fichier ouvert possede une capaate de 

plus de 1 70 fiches. indispensable pour votre ORIC Detail technique. 

c'est un fichier multicriteres : rien de plus facile que de rechercMer 

toutes les fiches de vos amis habitant Paris de prenom Jacques et 

nesen 1952 . 

Facile d'emploi. livre avec manue!. 

GESTION DE STOCK : 180 F. 

Logiciel de type professionnel. tres complet Par fichier. vous aurez 

une capacite de plus de 400 fiches-articles et queique 50 fiches 

fournisseurs. 

Chaque fiche-article contient reference, memo, designation. 

emplacement magasin. pnx. quantite en stock, quantitemmimale. la 

date du dernier mouvement... 

Ideal pour un commercant ou tout simplement pour vous qui desirez 

gerer voire congelateur. votre cave ou votre grenier. 

Possibility de mouvement sur fiche (entree/sortie), de recherche 

multicriteres. edition dinventaire... 

Livre avec manuel. 

CARN-3 : 80 F. 

Essayez de detruire habilement la chenille qui descend vers vous 
afin de vous devorer. Ce programme utilise le langage machine, ce 
qui rend le jeu tres rapide et votre tache tres difficile. 

INTERTRON : 80 F. 

Un jeu d'actions. ou vous vous deplacez a travers de tres nombreux 

tableaux.de plus en piusdilficile.Ce jeu demande une dextentehors 
du commun et des nerfs a toule epreuve. 

8IORYTHMES : 65 F. 

Etes-vous en bonne periode intellectuelle. physique ou sentimen- 
tale ? Ce programme vous donnera toute information utile. II permet 
aussi de connaitre le jour correspondant a une date donnee. 

Unhistoriquesurlescalendriersetleursutilisationsaccompagnece 
LORICIELS. 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX ! 
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UXet PROGRAMMES 
pour 
I'ordinateur familial 
TEXAS INSTRUMENT 




programmes en Ti basic pour "Ti 99/4AC 



INITIATION AU 
LANGAGE ASSEMBLEUR du 
EXAS INSTRUMENTS 
Ti 99 4/A 




Programrnez vous-meme en Tt-Basic grace a des instructions simples, sans 
aucun peripheriqueni module complementaires. Des jeuxoriginauxet passion- 
nants avec couleurs, graphismeset sons : Jeux de mouvement (Bowling, Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
Hanoi, Architecte, etc.). Jeux desociete (421, Goldie,Cochon, Mastermyster, Chif- 
freset mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque. etc.) 

Et aussi des Astuces pour augmenter la puissance du langage Ti- Basic : AN D et 
OR, Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripheriqueni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-rnarin, Trappe, 
Roulette, Casse-tete. Puzzle, Echecs, Tachitoscope, Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes: Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entrainement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



en vente dans les ftiac et chez ies 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votreordinateur.Ades program- 
mes utilitaires comme un traitement de-texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajou tent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155.00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse dexecution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables, a maltri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195.00 francs 
francais. Disponible en francais et en anglais. 
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DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISOUETTES. SHIFT EDITIONS. 27 rue du Gal Foy, 75008 PARIS 
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TOME I □ 155 F 
TOME 2 O 155F 



TOME 3 O 155 F 

ASSEMBLEUR Q 195 F 



SIGNATURE . 



CONTRE REMBOURSEMENT FRANCE + 20 F D 

CONTRE REMBOURSEMENT ETRANGER + 30 F O 



REGLEMENT JOINT... 
cheque □ ccp D 
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DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Ricn de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organlsons 
un concours permanent tous 
les mois et tous les trimestres! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer ! 

Oe plus, ce seront les lecteurs 
eux-mimes qui voteront pour 
leurs prog-ammes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitraire. HEBDOGIC1EL ninter- 
venant que dans le choix des 
programmes qui devrortt elre 
ORIGINAUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'amelioi er pour pouvotr nous le 
proposer ji nouveau. 



Pour participer, II vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a 1'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Realement 

ART 1 . HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 . Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de noire 
journal constitue I'acte de can- 
didalure 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur !a base de la 
qualite et de f'origmalite les log>- 
ciels qui sont publies dans le 
Journal 

ART 4: Ce sont les lecteurs qui. 
par leur vote, determinent ies 
meilleurs logiciels mensuel et 
trimestriel. 

ART. 5 Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre.t, rue des Halles 75001 Pans. 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'mterrompre a lout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 

FOY- 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom ■ 

Prenom : 

Age ; 

Adresse : 

n° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est n> une imitation m 
une copie d'un programme existant Ce programme reste ma pro- 
pnete et j'autonse HEBDOGICIEL a le publier La remuneration pour 
ies pages publiees seront de 1 000 francs par page (un programme 
n occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permeltant la reexpedition du materiel non publie 



RECOMMANDATIONS AUX LEC- rons ainsi reperer facilement les 
TEURS QUISOUHAITENTFAIRE listings, une foissortisde I'impri- 
PUBLIER UN PROGRAMME : mante. 



• Indiquez sur le support 
magnetique lui-meme votre 
nom. le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'ApplesurPC 1500. 

• Notez dans les premieres 
lignesde votre programme, sous 
forme de REM, votre nom. le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres COur- 
riers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin.lefindufin. expliquezles 
particularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 




LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 




GOD1LLORIC95F 

Unjeu tres original. 100% fangage machine. A I'aidede votre "godil- 
lot", vdus devez ecraser sans pitie une colonie de fourmis qui tente 
dedevorervotresucre.depechez-vouscarlachaussuremonteetles 
scorpions arrivent. 

MONITEUR ASSEMBLEUR/DESASSEMBLEUR : 140 F. 
D'une puissance remarquable, ce LORICIELS. entierement en Ian- 
gage machine, placera votre ORIC sous moniteur. 
Assembler (32 labels possibles), disassembler, suivre pas a pas 
('execution d'un programme en langage machine, visualiser une 
page memoire en ASCII ou en hexa, rechercher des chaines de 
caracteres, effecluer des transferts.... deviennent des operations 
faciles et immediates. 
Livre avec manuel. 

GENCAR 140 F 

Excellent generateurde caracteres. 100% langage machine. Permet 

de redelmir les caracteres de votre choix. un a un ou par bloc. Grace 

a un vocabulaire simple, son utilisation aidera tous ceux qui 

emploient le graphisme dans leur programme. 

Compatible mode TEXT et mode HIRES 

CASSE-BRIQUE 65 F. 

Jeu classique du mur de briques que vous devez detruire a I'aide 

dune balle et d'une raquette 

3D 140F 

3 D est unutilitaire qui permet, toutsimplemen I, decreer des dessins 
en trots dimensions et en couleur. Avec des ordres simples, vous 
pouvez modifier votre dessin. effectuer des zooms; des rotations 
selon les troisaxesX.Y.Z ainsi que des translations II est possible de 
dessmer un mouton' puis de le voir sous tous les angles, a 10 cm 
comme a 100 metres. 
Une fois crees. les dessins peuvent etre sauvegardes sur cassette 

LE DESSINATEUR : 80 F 

Cet utihtaire permet decreer. modifier, des dessins en mode Haute 
Resolution ainsi qu'en mode TEXT, grace a un pointeur lumineux se 
deplacant sur lecran 

PENGORIC . 80 F 

Une histoire de pingouin et de snoo-bee qui courent I'un npres 
lautre. en essayant de se devorer Vous etes le pingouin, avec tout le 
respecl que I'on vous doit, et vous vous defender en envoyanl des 
glacons contre le snoo-bee Un bon jeu d'actions, sonore et en cou- 
leur 

LA CHENILLE INFERNALE ; 80 F. 

Vous etes aux commandes d'une chenille infernale, et votre tjut 

avoue est de consommer le maximum de vermisseaux A chaque 

proie capturee. vous augmented voire taille d'un chainon Mais 

atlention, de nombreux obslacles sonl sur votre route.. 

Un LORICIELS qui plait beaucoup. mais ce n'est pas une partie de 

plalitr pour vos index ! 

JACK MAN :80F. 

Jeu passionnant et bien connu de ces petils enzymes gloutons qui 
font fureur dans les cales.et que vous pouvez avoir maintenant, chez 
vous, sur votre ORIC prefere 

PUISSANCE 4 / MATCH COULEUR 65 F 

Cette cassette conlient deux tres bonr, |eux de reflexion Une ver- 
sion tres sophisliquee du celebre Morpion et une version ORIC du 

leu Master Mind 



Pour obtenir la Itste des points devente.ecrivez a LORI- 
CIELS. 17. rue LAMANDE. 7501 7 PARIS oudemandez-la 

au journal 



INFORMAT-HIC! 

Radio ANGORA a Bordeaux lance une nouvelle emis- 
sion d'informatique baptisee "INTERFACE" et animee 
par Didier CUGY. Vous saurez tout sur linformatique le 
samedi a huit heures sur 100.7 MHz. Et, pour ceux qui 
ont abuse de la reserve Radio-Angora et qui n'ont plus 
la force de taper leur programme, Didier Cugy trans- 
mettra des programmes parus dans HEBDOGICIEL. 
Vous branchez votre enregistreur de cassettes et vous 
continuez a teter votre biberonde Bordeaux 1982! Que 
les bordelais qui se sentent vexes nous ecrivent. ils ont 
gagne une bouteil'e de vin dAlsace. 




BORDEAUX 

APPELLATION BORDEAUX CONTROLEE 

1982 fttl 
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RADIO ANGORA SUR 100 7 MHZ I TEL 44 88 66 
78 OUAI 0E5 CHARTHONS 33000 BO'ROEAUX 
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LOUE SOIT SIVEA ! 

Combien d'entre vous ont regrette amerement I'achat 

d'un materiel qui, apres quelques jours d'utilisation, 

s'est avere decevant ou mal adapte aux besoins reels ? 

Combien se sont laisse pieger par une publicity enjo- 

leuse. une reputation surfaite ou tout simplement par 

un coup de tete? 

Sivea cree a partir de decembrc 1983 un d6partcmenl 

location qui va permettre de tester les materiels avant 

de les adopter definitivement. 

Ce departement s"adresse tout autant aux societ6s 

qu'aux particuliers puisque les machines en location 



seront des hautsdegamme comme Apple III. LISA. IBM, 
PC, mais egalement des APPLE IT ou des ordinateurs 
plus "familioux" comme le T 07. le Tl 99 ou le COMMO- 
DORE 64. 

De plus la totalite des peripheriques pourront egale- 
ment etre loues, moniteur VIDEO, lecteur de cassettes 
ou de disquettes. imprimantes. carte d'extension, 
manettes de jeu ainsi que des logiciels. 
Pour tous renseignements. appeler SIVEA "location "au 
293.02.22. 

UN GOBELET DOR DE 64 K 

Lavillede Boulogne-Billancourt organise un concours 
internationald'INVENTEURSdeJEUXdeSOCIETE.Les 
programmes envoyes doivent fonctionner sur des 
micros de 64 K au plus. Vous avez le choix du materiel 
qui doit etre dans sa version standard et vous pouvez 
utiliser le langage de votre choix. Le premier prix est le 
gobelet d'orde lavillede Boulogne-Billancourt et c"est 
Monsieur le Maire lui-meme qui le remettra au vain- 
queur. Le deuxieme prix se verra attribue lui aussi un 
gobelet mais en argent seulement. JEUX et STRATE- 
GIES, notre excellent confrere, decernera son pion d'or 
ainsi que deux disquettes d'or. Quant a la Federation 
francaise de jeux de societe, c'est un de d'or qu'elle 
depose dans la corbeille des recompenses. Les 
logiciels doivent etre expedies au Centre culturel. 
Concours d'inventeurs do jeux de societe, 22. rue de la 
Bellefeuille, 92100 Boulogne-Billancourt. Pour obtenir 
le reglement du concours ou des renseignements plus 
complets, appeler la Ludothequedu Centre cult urelau 
(1)604.82.92. 

TELE VERITE 

Ca y est. la FNAC recidive. encore des pteurs et 

des grincements de dents en perspective. Certains 

const ructeursde televisions von t etre dans leurs pet its 

souliers! 

Vous voulezsavoirqui a obtenu deux etoiles seulement 

ou quia quatreetoiles en note technique etquatro etoi- 

les en rapport qualite prix ? 

Preoipitez-vous a la FNAC la plus proche, le dossier 

Television est gratuit et, comme d'habitude, comptez 

les etoiles. Ah ! au fait, trois etoiles — 3 ans de garantie, 

c'est dire si le laboratoire de test de la FNAC est sur de 

lut.QuandlaFNACs'ongage.ellenes'engagepasnmoi- 

tie! 

ECRAN MAGIQUE 

Max, Claude et Benoit sevissent le samedi do 15 h 30a 
16 h 45 dans leur emission sur la micro-informatiquo. 
ECRAN MAGIQUE. Initiation a I'informalique.nou vi'. ui 
tes de la semaine et, en prime, quelques programmes 
parus dans HEBDOGICIEL seront diffusds. A vos 
cassettes! Radio Rivage Contact 91,4 MHz 



JACKPOT 



Un superbe jeu graphique utilisant les possibilites du 
Basic Etendu : cerise, citron, dollar, cloche, sac d'ar- 
gent, mystere, jackpot... tout y est. Las Vegas est a 
vous! 

Pierre VIOLENT 

Pour des raisons techniques, les caracteres de code ASCII de 129 a 
143 sont representes par des minuscules dans le listing et vous 
devez les entrer avec CTRL etla lettre correspondante Par exemple. 
pour la ligne 1801, vous devez entrer CTRL et b, CTRL et j. CTRL et 
l-.CRTL et c Par contre, pour la ligne 1802, entrer direciement "JEW 
en majuscules. 

La Redaction 

l 1 JCU BU JACKPOT AUTEUR: P. VIOLENT DATE: 26/10/82 

lAILLEllOJll 0CTETS/PR6 13 (.OCTEIS/P-Y 

100 CAU REGIES :: CALL HKMn{4);; CALL CLEAR :: CALL SCREEN!;):: CALL CABC0L( 
W.1J 

110 CALL SJ>R1TE(I1. 120, 10. 1.1, 0.64.12.120. 14. 160. 20. -64.0. £3. 120, 3. 160. 1, 0.-64, 1 

4, 120.6. 1.224, 64,0) 

IK) DISPLAY AT( 1 J , 4 > ; - VEU J L Lt i" PATtEMlER ..." 

130 RWD0HIZE 

1*0 ON WARNING NEIT 

ISO CALL INIIVARStC0L().NC«().JACAP.S0W) 

160 CALL J£U(JAC*P,SOM,H[S£) 

170 CALL INIT0IS?(COL(}.AA(,},JACKR,S0HE,HISE) 

ISO FOR I'l TO 3 :: CALL STARK I):: REIT 1 

190 FOR 1-1 TO 3 :: CALL KALT(I):: NEXT I 

200 FOR M TO 3 :: CALL STASH ,DIS( ) ,NCKS( ),AA( ,)): : NEXT I 

210 CALL K1N(DIS(),JACU\S0ME,HISE) 

220 CALL ENC0U(SC*C) 

230 SOTO 150 



460 SUB STAKMCOU 

»:o DISPLAY Art?«.l)SUE(9):-DEP'C0L-:C0L 

460 ACCEPT AT|;*,,'B):A1 

490 OISPLAY AT(24.1)S]iE|9):" 

S00 CALL SIP 

510 Y-INT(30'(1*RNO)):: FOR 1-8 TO I STEP 8 

:: NEXT I 

57.0 SUBENO 

5J0 1 



: CAU SPEiDU0l,]'5&N(.SMC0L-2)M 



540 SUB STAB(COL.AR»U.I»OKl().AA(.)) 

S4S I-B'lCOl-1) 

SSQ CALL SPR1TEU28,93,8,97.80*24*CCL) 

S60 FOR 1*1 TO 8 :: CALL COINGUW.tte.Z.lJ: 

570 NEIT I :: GOTO 560 

S80 CALL SPEEOtCOL.OI 

S90 CALL DELSPRITEU2B) 

595 CALL L0CATE(£I*i,97.8O*;«*C0L) 

600 ART(COL)-AA{C0L.I) 

610 01SPLAT AT(COL-il.ns[IE(8):NOMl(ARY(C0L) 

620 SUBENO 

630 ! 



640 SUB CARCOL(CAR.FOND) 

650 FOR 1-1 TO 8 

660 CALL COLORd.CAR.FCMO) 

670 NEXT I 

680 SUBENO 

690 I 



•tt 



DL1) 

99I 



/*> 




2«o 1 

no sue speeou.y) 

260 K-8-(I-l) 

261 A-K*8 :: B-K*7 :: C*K*6 :: D-R*S :: E-X'4 :: F*»>3 :: 6*K*2 :: It* KM 

Z70 IF l<>2 THEN CALL pYH:C*l[£>,Y,O,I8,v.0,«.Y.0.£D.Y.0.tE.Y.O.if .Y.O.EG.Y.O 

.1.0) 

271 IF 1*2 THEN CALL MOTIOH(IH.Y.0.Ifi.Y.0.If .Y.O,I£,¥.0.£0,Y,0,£C,Y,Q,£3.Y,0, 

V.O) 

280 SUBENO 

290 1 

300 SUB RANOfXAXI.TABLM.EL) 

310 FOR 1*1 TO 10 :: tABL(EL.l)-l :: "EXT I 

320 FOR 1-1 TO 10 

330 P-INTIKUI-PJO-l):: 0-!NTO«X!*RJI0*l) 

3*0 S'TAfltlEL.P):: TASL(El.P)'TABL[EL.O): : TABLUL.QJ-S 

34S NEXT I : : SUBENO 

350 > 

360 SUB HAL T| COL) 

370 OISPLAT AT(Z4.I)S1ZE<9):-SIP"C0L*;C0L 

380 ACCEPT AT(24.23):AJ 

390 OISPLAT AT(24,1)SIZE(9}:" 

400 CALL 81 P 

410 FOR V-32 TO 1 STEP -2 

420 CALL SPEEO|CQL.V*S«(.S*(C0L'2))l 

430 RETT ¥ 

440 SUBERD 

4S0 ! 



700 SU8 INlT01SP(C0l{).AA(.).JACtP.SOHE,HISE) 
710 CALL CARC0L|7.l) 

720 CALL SCR£EN(12) 

721 OISPLAT AT{IO.I)£RAS£ ALL;-JAC«J>OT,T:JACM>;-J-: :"VOUS AY£Z":SQK£;-$-: :*VOT 
RE':"MSE**:NSE;"f" 

727 CALL YCMAR(1,12,134,24):: CALL VCHAR<1. 13. 136.24) !i CALL YCHARU.16.137 .24): 
: CALL YCKARfl. 19.137.24) 

728 CALL VCHARll.22.134.24):: CALL VCHAR{ ] .23.136.24] 
760 DISPLAT AT< 12. 10) : T kjjkjjtjjk»i- 
770 DISPLAY AT( IS, 10 J : *f kj jtjjtj jkh' 
780 CALL T1TRE 
790 CALL NAGMFY(3) 
820 FOR J-l TO 3 
830 CALL MND(8,AA{,),J) 

835 NEXT J 

836 FOR J-l TO 3 
840 FOR 1-1 TO 8 

850 CALL SPRnE(£I»B'{J-l),92*4»AA|0.I).COL|AA{J.I)).24»(I-l)*1.8O+24-J) 
860 NEXT I 
870 NEXT J 
950 SUOENO 
: 960 !-- 

970 SUB INITYARS(CCLO,DE*().JACU>,S0ME) 

980 DATA 00626207OA0A0AO702O20A076262O0O0004646E0SO4O40E0S0S0S0E04646. 16.0003000 

00 ] 0202020204O4O40FOOOlOOOOE080e0C02O202020 101QIOF880C, 7 

990 DATA 00010638O10202O4O4O4040202O10O0018E08OCO20 10 100808080810 1020C. 11. 000003 

OC3001030«04040300000000000E30C040E020A060704B88887008,10 

10OO DATA 0O010703O106O8131213I20A08O403O00OF0EOC08O60IOC80e88O8101020C,S. 000707 

18130a0000000101010001010000EOE0181B18ieEOEOB0808000808,14 

1010 DATA FFOOE42A2EAA4AOOEI9292E282810OFFFFM4AAA8CAA49OO9F444444448*OOfF.3.0O3 

844424221190707 1921 424244 3800O01C2242428498E0E098844242221C .8 

1020 DATA "DOLLAR". "CLOCHE", "CITRON", "CERISE". "ARGENT", -KTSTEK",*JAC 

K*POT-,"FLEUR*" 

1030 FOR 1*1 TO S 

1040 READ CARS.COL(I) 

1050 CALL CHAR[92.4'1.CARI) 

1060 NEXT I 

1070 FOR [-1 TO 8 

1080 READ DEI(I) 

1090 NEXT 1 

1100 CALL CHAR(92, , FF*»HPTS(-80-.14)**FFFF-JRPTSC0r,H)*-FF") 

1110 CALL CHAR(64.*0OOO3O3OOO3O3O*) 

1120 DATA lOlOlOlF.OOOOOOlFIOlOlOlO.OOOOOOFOlOlOlOlO.IOlDlOFQ.lOlOlOFF.lOIOIOlFl 

0101010, 00OOOOFF1O101010.101010F010101010.I010101010101010 



1130 OATA OODOOOFF.IOIOlOfn 0101010 

114Q FOR I'l 10 II 

11S0 READ H 

1160 CALL CMAR(128M.A*) 

1170 N£(T J 

1180 CALL CMAR(91,") 

1190 JAC-J>MOO*INT(100**NO) 

1200 $0HE«3OMRT(]0*RJI0) 

120$ CALL tOLOR(0, 14,1.13,10.1.14. 19,1) 

1210 SUBLNO 

1220 I 

1230 SUB BIP 

1250 CALL SOUMX- 40.S23. 0) 
1260 CALL S0UND(-40. 659,0) 
1270 CALL SOUK0(- 40, 784.0) 
1300 SUBENO 

1310 ! 

1320 SUB W[N(D!$0,JACX?.SOMC.KISE) 

1330 A'DIS(l):: 8-01S(2):: C-DIS(J) 

1340 IF N0T(A-8 AND B-CJTHEN 1370 

1350 IF A*7 THEN F*S ELSE f*J 

1360 60T0 1430 

1370 IF N0T((A-7 AND B-7)OR[A-7 AJffl C-7)OR{B*7 AND C-7))THEN 1400 

1380 F-4 

1390 GOTO 1430 

1400 IF A-B OR A-C OR B-C THEN F*l :: SOTO 1430 

1410 NAL-INT(8*RN£M):: IF A-RAL THEN DISPLAY AT(1 ,22)BEEP:*CHARCE!* :: F*l :: 

010 1430 

1420 F-0 

1430 IF F-5 THEN 1560 

1440 DISPLAY AH10.22}:-C0EF»-;F 

1450 If F-0 THEK Ai-'NULS* ELSE AJ-STRJ(F'NISE)*- f 

1460 OISPLAT AT(13.22):"V0$* 

1470 DISPLAY AT(I4,22):-GAINU* 

1480 OISPLAT AT(IS.22):A$ 

1490 SOW'SOKE'F'MISE : ■. JACIP-JACKP-F'HISE 

1500 IF JACJUX-0 THEN SOME ■ SOKE -JACKP :: JACKfO 

1510 CALL SUITE 

1520 IF SOHE-0 THEN CALL R0ULETTE(JACU>,SOrIE.NlSE): : SUBEXIT 

1530 DISPLAY 'IE JACKPOT EST DF_';JACW;-J- "YOUS AYEI'lSO*;'!* 

1540 DISPLAT 

1S50 SUBEXIT 

1560 J-IIO 

1561 CALL OELSPRITE(ALL):: CALL MWSNIFY(4) 

1563 CALL SPR!T£(£1.12Q.lQ.l.l,0.64.£2.120.14,160.20.-64,0.n.l2O.J.lLi.l.0.-&4. 
£4,120.6.1,224.64.0) 
1565 CALL CLEAR 

1570 CALL SCREEN<10):: FOR 1*1 TO 22 :: PRINT TAB(I );*JACXPOI- ll NEXT I :: 
1576 CALL KKARU. 31. 32,96) 

1580 FOR 1-1 TO 5 :: CALL CARCOLI 15.5): : CALL SOUND(-1E3.J.O): : J- J* 1.06 :: CALL 
CARC0L[5,15):: CALL SOUND(- IE3.J.0): : J-JM.06 :: NEXT I 
1S90 SONE-JACKP :: JACKP-0 :: CALL SUITE :: CALL CARC0K7.10) 
1600 PRINT *VOUS AYE2 KAINTENANT -;SO(C;*J" 



1610 PRINT , 



.'YOULEZ-YOUS CONTINUER ? 



BASIC 
ETENDU 



1620 INPUT RS 

1630 IF RS-'O- THEN SU8EXIT 

1640 IF RI--N- THEN STOP 

1650 PRINT "0 OU N 7* 

1660 GOTO 1620 
1670 SUBENO 

168u 1— - 

1690 SUB JEU(JACKP,SOH£,HI$E) 

1700 CALL CLEAR :: CALL SCREIH(8):: CALL I1TRE :i CALL £ARC0L(5,1 ): : CALL DELSPR 

lTE(ALL) 

1710 DISPLAY AT(12,0):"H0NTAHT-0U-JAe-J>0Tl , ;JACItP; ,, J- 

1720 DISPLAY AT(I5,0):-*V0US-P0SSEDEZ";S0ME;*S* 

1730 OISPLAY AT(17,0):"COM8IEN'J0UEZ , VOUSi* 

17W ACCEPT AT(17.22)B££P VALIDAIE(0IOIT)SIZE|4):HISE 

17S0 IF HISEOO ANO «ISE<-SOHE THEN 1770 

1760 OISPLAY AT(20,10|:*ERREim- :: CALL CAftC0l|7.I) : : CALL SCREEN(IO):: GOTO 174 

Suite page 12 
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DONJON 



Chevalier en quete de la coupe enchantee aux vertus 
magiques. vous evoluez dans un donjon de 100 pieces 
infestees de scorpions et de moguls. 
Dans lun des trois coffres perdus dans le donjon, la 
coupe vous attend, dans les autres: des chauves- 
souris sanguinaires. 

Divers objets repartis dans le donjon vous aideront 
dans votre quete : serum guerisseur de piqure de scor- 
pion, fleche magique pour detruire les moguls, talis- 
man repousseur de chauve-souris et clef pour ouvrir 
les coffres. Rappellez vous qu'une salle ne contient 
qu'un seul objet ou un monstre a la fois. Apres avoir uti- 
lise un objet, il disparait et reapparait dans une autre 
piece. 

WAN HARY 

cteroulement de I'ac tion : 

- I'ordmateur vous demande d'abord la direction du deplacement. 
tapez £ pour monter. X pour descendre, S pour aller a gauche. 
D pour aller a droite. Si vous voulez rester dans la meme salle. ta- 
pez L'ordmateur vous demande ensuite "QUE FAlTES-VOUS ?". 
Tapez alors la lettre correspondant a Taction desiree 
©: laisser un objet dans une salle vide pour le reprendre ulterieure- 
ment. (Si la salle est ocupee ou que vous ne possedez pas d'ob- 
jet, rordmateur ne prend pas en compte cet odre et vous rede- 
mande "QUE FAITES-VOUS?") 

(7) prendre I'objel contenu dans la salle oil vous vous trouvez. 

{§): utiliser I'objet (defense contre les monstres, clef pour ouvrir les 
coffres. .) 

(§) dessiner un caractere sur leplan.ce qui ninflueen rien sur le de- 
roulement du jeu. Cette option vous evite de noter sur une feuil- 
le remptacement des monstres. 

A la question "CARACTERES". tapez le numero correspondant a 
I'objet que vous voulez dessiner. 

1 — serum 

2 — talisman 

3 - fleche 

4 - clef 

5 — espace (si vous vous etes trompe ou pour effacer un monstre 

mort) 
6— mogul (M) 

7 - scorpion (S) » 

8 - coff re (C) 

™ fin des dessins. 

Apres avoir demande le caractere a afficher. I'ordinateur vous 
demande sa position (hortzontale. verticale) et le dessine a i'ecran. 
@: Taper si vous ne voulez rien faire. 
Le programme s'arrete avec CTRL 4. 
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r-v. ;:■: .l; 

1835 SIB lESJJR) 

■ 

IMS ■1='::;::=:; • 
1(74 f» 14 n II 

;■;;,., 

Mi BFjn : 

/■v. :i.. ■:■ ;.<.- 

1880 IF 54 TO 1995 

1983 IF H(43). 11 )S*)-|0 1883 

::■-■: ;■ • >: -E. :::: 

70*3 cru rouic:,::.::.:: 1 

::.: rju -:-:= ::.::,::.;; 

MI3 an ':: 

:::. ■•■■:•■■ ::.: 

tots ui* i*,:3*.30.ir.:i, ;:=•:.;<■ 

7M0f0» M 

:::•. ■;-■: --.:■ 

7940 IF ftM TO 743f 

7M3 REIT I 
.7030 •VfOSiriBT- 
TOSS Ff IR 

70*0 CALL -CM*..:: . . 

70*3 FOR 1-1 Tit 

7070 CALL 4>«l77.:-:i,ASCiSEi1.M,!. 

7073 CALL WJ«(:i,I>:i,tSCiSEB»iSt,l. 

TDK REIT I 

2033 OU UTI3.4I.S) 

7089 [f SO TO 7933 

74*3 If <(|<43'Mtl>7liriO 70*3 

7104 CALL KHHill.TR.lll 

2143 CRU imS,l2.Sl 

7114 IF SO THE! 2183 

2113 if «:<«mii«itno :i» 

2174 CALL B3H ■ 

7173 CALL KM*ill7-4*,i|-(7,lll 

:.:: nil :'■■-- 

I1JS8E8 IIUEE KSPltCti 

v.i; mitmoini 
71(3 88ilKi 

. • nxum im 

tm !■ »ni.<i)()4 to 2110 



7174 II-1)TI|4*RR|I 

nii<M3ji 

2130 IF PIII.'TIOO TO 21 10 

1133 RE TIM 

2199 8ER 4/IID4W BU IBUClAt BJR IE UU 

2183 C*U KH*Rll'l.»'21.CM) 
779C CALL SCMR(T<7,t>7!,CAR) 
■^1703 If (l(0)*Il)9)»i((0ltl»)()t«O 1773 
E 1115 aiOCAU H>W1C2,I.:1,11' 
2713 14 
22:0 |4 

2773 BCtiM 

7710 BER •FFIOtW P'lM RESSAB ... 

2713 CALL KHU<17.I,12,»I 

77(0 CALL KWRill.l.ll.TO) 

21*3 FOR t'l '0 LBCUI 

2734 CALL KWRi?;, I-J. ASCrttid't.l.t 11.' 

17S1 REIT I 

7740 If IURM 

7143 FOR t'l TOlfHHIi 

7770 CAU KJ***l21,!'I,»«lSE5(lM.],l; 

1773 REIT I 

77M *Et«R 

7783 OCT EfFtO* DIJEI 

7780 UU V04ARK, 14,14.1) 

72*5 CALL 8Ctt«M,H, 88,11 

2304 CAU WHttll,II,841 

1J43 BETJM 

1110 RER KSSII COFFtt 

2113 XL KWIIir.11,151) 

2120 CALL ROWliT. II'!, 131) 

1173 BltURR 

7110 O 0ESE1" 3-» 

1113 CKL KWAll'l, 11.(4) 

71(0 CALL •OU('l-|,ll-l,C4-1i 

71(1 CALL XCRMm.II.CA'll 

7130 CAU KOWIH.t I'l, (.(•!' 

2115 KTUW 

11*4 KB KSSIt C0.-F-1 

2J*3 CALL RDlARtn.ll.lSI) 

1170 C*LL ROW* Iff, II' I.I 55) 

2173 mm 

1130 RER 3E3SIR KS 




. 
7333 OU <— 

bu torn 

:■■• '• '• > mum 

■ 

75*e Ml: <•- 






■ 



J3H •£• *ctri M fm 

. ■ 

jttsuu toMa,*,in.ii 

":»:{ Ul ROM 

--• *,l.:i'.: 

:4»C*U<M<i>,^.::>: 

7*33 sa ran 4 UX< 

:*jj c*l»o*».*.4.::i 
7*(* C*U *W»i3.«. :::.:: 

■ 

2*30 CALL RDM 
:i53 tTL»» 

:**-• *ct rs«Ti * Kent 
:**iou dm 1 

7*79 CALL 3038)33,13,111,11 

7*73 CALL <OM<!.:l.ll*' 
!*«0C*U R(3MI),U,W,31 

7*33«TlM 

:,t; t{> ti/it AVMT Mr 

nnau <o-*ii.'..i;v 

IM Uu <y*t:t,,,\r,t' 
.*N3 CALL ICRRR18, 12,14*1 
27t0 KTVft ■ 



1703 H 

1710 K 



8 7713 
I 72*3 



■■.':■, [■ 



3 2145 



1010 It" I'L'M HI CASES vfllilRIS... 

1013. FC* I'l IB I 

IBM mil. lit IK3.4I-! 

lois tr i>i 10 tod 

1414 FDR M 10 l-l 

1013 tf mil'fftJitO 1070 

10(0 If It J 

10*1 "lit I 

1034 II'IO 

1033 FOR IM 10 < 

10*4 ORPflllUIB 1413.1103.11)3.11(3 



1714 TT.3 

1713 (OUI 1U3 

1740 OH 1)1,11-4 totO 17(3,1780 
1)45 CAU KWIll, 11,(5) 
1734 CALL SOUUIlO0,(44,U 
1733 CAU 30WlBl7M.720.IF 
1740 C*Ll 80L'ROI240 < l(0,n 

1715 "fiflJi t.I! tlOUVt 1 

1770 «''L» CW( • 

1773 tOSVI 1213 

1)19 USUI 2143 

1713 Htg lltS 

17(0 CAU HCMtfK.II.KSi 

1793 CAU KWlll.lO.MI) 

11 




LE FOU ET LE MEDECIN 



Qui est le plus fou : le patient avec camisole et enton- 
noir sur la tete. juche au sommet de son arbre. ou le 
medecin qui essaie de le faire descendre en abattant 
les arbres avec une tronconneuse? 

R. LECOQ 

10 PAINT CM»*(l*> 

28 REn PROGRAMME DE R. LECOQ 

38 REM VERSION OU 20 DECEK8RE 1382 

40 EXEC.'TTYSET OP-B" 

3B Sen CLUB ADEWIR CALYPSO 4926-0 MCNTREUIL 

188 rem.-..........-— . — ..«... — ......... 

Iti Din A(119>.KX(9) 

138 R£"«B«»B«aM«i»tH-«w»t^XPLICAT:ON OU JEU 

140 GOSUB SOB 

158 REM" •••••»»••••••■"■ "LECTURE DES DONNEES. INITIALISATIONS 

16B gcsub loco 

170 flEK»BBB«»»il»BB«aaaB«BBPLACE INITIALS DU FOU 

IE0 GCSUB 2000 

190 RErB«B«»»«»B«»B»«»BM1«AFFICH0GE DES ARBRES ET JEU 

200 CCSUB 3000 

2:0 REH ••••••• •••<••• ••••■TESTS DE V0IS1NAGES 

228 GOSUB 4000 

238 IF 50-1 THEN 2S0 ELSE 19C 

240 IF CHI28 THEN ISO 

230 ^-.nn.".!.""!"."--:'; DU JEU 

260 GOSUB 30B0 

278 R£?1B»M"BBBB»»B*jM««»BTE.' J F-aRI5nTIDN 

238 gosub soee 

290 PRINT CHR»U2> 

308 INPUT -VOU.EI-VOUS REJTJUER <0/N> • I R» 

318 IP R»O-0' THEN END 

328 RESTORE 

338 GOTO 168 




318 FOR 1-1 TO IB 

528 PRINT 

330 NEXT I 

333 PRINT TAB <2B>:- 

340 PRINT TAB(28>!"* LE FOU ET LE KEDECIN ." 



■TITRE ET EXPLICATIONS 



>RINT 1 

sea casus seee:GosuB &ooo 

578 PRINT CHR*C12> 

380 PRINTiPRINT 

398 PRINT • 

see print ■ 

SIB PRINT 

528 PRINT ' 

630 PRINT ' 

S48 PRINT ' 

S38 PRINT ■ 

SS8 PRINT ■ 

S7B PRINT 

£80 PRINT ■ 



©O 



,0^ V 



sse i 



IINT 



UN DE VOS FOUS 5' EST ENFUI ET SE CACHE DANS LE JRRDIN" 

DANS CE JARDIN , IL V A 108 ARBRES " 

LE FOU S' Y CACHE. ..." 

VDU5 PRENEZ VOTRE TRONCONNEUSE ■ 

ET VOUS COUPEZ LES ARBRES POUR FAIRE TOMBER LE FOU... " 

L£ FOU SE TAIT....SAUF SI VOUS ABOTTEZ UN ARBRE VOISIN OU 3IEN" 
DANS CE CAS IL CRIE LE MJKERO DE L' ARBRE SUR LEQUEL IL EST.." 

MAIS ON A BEAU ETHE FOU... IL LE OUITTE AUSSITOT - 

POUR UN ORBRE VOISIN DANS UNE LOGIOUE DE FOU" 



PDUR CONTINUES EMFDNCEZ UNE TOUCHE DE LETTRE ET VALIDEZ ■ I RT 
»«••****.*•*»•-***...— -LECTURE DES DONNEES 



700 PRINT ■ 

718 PRINT ' 

720 PRINT 

730 PRINT ■ 

748 "HINT ' 

730 PRINT 

7S0 INPUT ' 

778 RETURN 

ioee REn---**— *-*-*•— **-"■-*«»•■»******-******-** 

1010 FOR IK-0 TO 9 

1028 au*)-108 

1B38 SEXT I* 

1840 FOR IX-10 TO IBS 

1838 A<IXJ-IX-10 

1BE0 NEXT IX 

1870 FDR 1**118) TO 113 

1B80 AUO-108 

1838 NEXT IX 

1108 FOR IX-1 TO 9 

1110 READ K*(IX> 

1120 NEXT IX 

1138 RE»»»#<t"M«»»IHt«*»#«M»»«#CONPTEUR INITIALISE 

I 1 40 CK-0 

1130 REraa«aa«NflB**a>N««*M*«N*MDRRPEAU GAGNE 

11S8 00-0 

I IBS REn »« •■;■• °g:'-t: rrbres 

I1E6 PA«B 
1 178 RETURN 




2818 OPEN "I. PLflCEFQU" AS I 
2020 DIRBl.FOtll 
2838 L-INT(F0fl>*23-5> 
-2840 FOR 1-1 TO L 
2838 I-RND<B> 
2360 NEXT I 
2.B78 FO(l)-RND(0> 
2088 CLOSE 1 
2090 FX-ImT(RND(8>-12B-10) 

2iee if Fxteon F*i99 then 2030 



,4.**.*. ...PLACE INITIALS DU FOU 



.-■--; : ---_-. ::3 --.-- ■■-■■ 



1330 FDR IX-8 TO S 

384B FOR JX-0 TO 9 

3B43 r*.»5TR»lIX> IY»=STR»(. 

1838 PL*-18-<t*-l>*JK 

3863 IF A1F-_X>-100 THEN 11 

3070 PRINT TA8I2-S-JX)! 

3B80 NEXT JX 

3898 PRINT 

3120 -;£XT IX- 

3110 PRINT I PRINT 

3128 INPUT "DUEL SRBRE OBATTEZ-VOuS "IMU* 

3138 IF NU«<8 OR MJ*> 93 THEN S12B 

3140 sux=NU*-:a 

3138 IF 0<NUX)-1B8 THEM PRINT -ARBRE DEJA A3ATTU TO* 
3162 V.X-MJX 
3178 GOS-JB 7208 
31 SB RETURN 

4280 llO li bI "-ESTS DE VOIS 

4813 IF VJKOFX THEN 4B4B 
4828 0G«1 



^Mf Suite o*e la page J 



vef votre hebdomad««fe favon 

Les utilisateufs du MULTlTECH 
MP-Fll ont I'air de se reveller, de- 
outs qu'ii est suf 13 louche, nous 

recom me neons a rece - r 
prog ra Times, ii ne va pas larder 
a remtegrer nos cc I 
Et si nous accueiHrons ie LYNX? 

G CECCALOl 



MENU 

ORIC est gate cetle semame 
PANlQuESURLAVILLEdeJean 
BEAU8ERNARD et un VERIFY 
qui va vous permettre de veri- 
fier si vos cassettes entendent 
bien ce au'on leur dit (M GOU- 
LAMHOUSSEN) 



4843 
4353 
4363 



or : 



318 

=A* TO 3* 



; oczxi-ioo 

J NEXT 1* 

i GOTO 4110 

! PRINT 

1 PRINT -JE SUIS SUR L'ARBRE NU^ERO "iZ*-IO 

1 PRINT -JE LE OUITTE POUR ALLER AILLEURS" 

', GOSUB 6000: GOSUB E 



4160 fUNUXO'll 



uFx>=iee 



zzzz 

5060 
506S 
5070 

zzzz 



514B 

51 SB 
5168 
E83B 

601 B 
6323 
6030 
7833 
7010 
7020 
7030 



1»»CALCUL OE LA NOUVELLE PLACE DU FOU 
! NNX=F* 

I HA=1NT(RND<8)'2*1) 
' IF HA-S THEN 423B 

i '■?"«• imi... i .ii i ..>3'> D'UN ORBRE VOISIN IMMEDIOT 

! GOSUB 7O20 

I FOR IX-A* Tfl BX 

J ZX-FX*KX(IX) 

I IF QC2SX1 1B0 THEN FX-Z*:COT0 4388 

1 NEXT IX 

I REn«««aaaaa»a»««««»aa«B»««.?RDGRESS:CN ET CHQIX D'UN ARBRE VOISIN 

! C X=FX«-1 

! IF n(FX)<)!B8 THEN 4300 

I IF FX>1B3 THEN FX-I0 

I GOTO 41 S3 

! ^^•■••■••••••••••••TErPORISOTlON 

i GGS'JB i.~;-^ 
I RETURN 

! REK*-*** --... r iW DU JEU 

I PRINT CMR*<12) 

I PRINT:PRINT:PRINT:PRINT 

! IF DG-1 THEN 509B 

I PRINT -VCUS AVEZ FAIT TROP DE DEGOTS DANS LA FORET ■ 

[ 30SUB 6000 

I PRINT -VOTRE FOU EST PLUS MALIN DUE VOUS ■ 

gosub seee 

PRINT "IL A DEJA PRIS LA CLE DES CHAMPS - 

GOSUB 6000 

PRINT "BON COURAGE OVEC VOS AUTRES FOUS 

G3SUB 6008 

GOTO 5158 

PRINT ' BRAVO' '■" VOUS AVEZ GAGNE EN ":Cni- COUPS" 

FOR IX-18 TO 183 

IF AllXflOO THEN 5094 

PA-PA»1 

NEXT IX 

PA-PA.3*<21-CM> 

PRINT -VOUS AVEZ UN SCORE DE "IPflt* POINTS SUA 200" 

PR'NT 

IF PA) 150 THEN ORINT 'VOUS ETES LE R01 DE LA TRONCONNEUSE.. 

IF PA1S00 THEN PRINT 'CHEZ VOUS LES FOUS SONT BIEN GARDES. 

IF PA150 THEN PRINT 'lE =0U A £TE TRES flALIN • 

PRINT -LE FOU A FAILLI S" ECHAPPER. . . VOUS ETES BIEN FATIGUE. 

GOSUB 6000 t GOSUB 6803 

RETURN 

REM ••...........»....-. - ....TEnPORI SAT I ON 

for i-i td leea 

«XT I 

RETURN 

REM****** ••••••-••••'••TRAITEHENT DES BORDS 

AX-HBX-9 

FDR IX-l TO 18 

IF NNX-IX.1B THEN AX-4IGOT0 7B60 

I r NNX-IX>1B>9 THEN BX-61GOTD 7060 

NEXT IX 

RETURN 
1 REH».-*-«. ...................*...*............ ..........OONNEES 

1 DATA -II. -1.9. -10. 8. 10.-3.1. 11 




OOTO 5130 
' ' '-IGOTO 3 
■GOTO 5138 



* 



Suite de la page 10 



TEXAS 



1770 SOW-S0t»-HISE :: J*CXP-J«W"HISE 

I/SO SUBEND 

J7W ! 

iaoo sue iitre 

1801 DISPLAT Ar().l)SIZE(9):-bJJjJJJJt* 

180Z OISPLAT *T(?,1)S1ZE(9):'J£U 

1803 D15PLAT *T(3.1)S1ZE(9) :'DE Ut ' 

1804 DISPLAr Atl4.1)SiZE(9):'K»CHINE- 

1805 DliPLAT AI(S.1)SIZE(9):'A SOUS * 

1806 DISPLAY AI(6,I)SlZE(9):'»JJJJJJJd- 
16*0 SUBEND 

18S0 1 

1860 SUB SUITE 

1670 CALL HtttAR(24,:)l,4S] 

1880 CALL GCKAR(?A.32.1):: IF X-SZ IMEH CALL HCHAR(2«.3Z.3Z)ELSE CAIL HCKAR(Z4,3 

2.12) 

1890 CALL tfY(O.A.B) 

1900 !F A-I THEN 1880 

1910 CALL CLEAR 

19Z0 CAU OELSP«ITE(ALL) 

1930 SUBEKD 

19*0 ! 

19M SUB ROUL£nE{JACKP.SOW,MIS£) 

I960 CALL TITRE 

1970 OISPLAT AT(lO.l):* VOUS ETES RUIM..." :: DISPLAY AT(1Z,1):'U CAS A ETE PR 

EVU: U« JEU ROULETTE RUSSE A 6 COUPS PEUT VOUS FAIRE CAWlER 10 J* 

1980 OISPLAT AT(z0.1):'CELA VOUS TEHTE-T-IL7' !1 ACCEPT AT(Z7. I4)SIZE( 1)«EP VAL 

IDAIECC*I-):RI 

1990 IF RI--K* THEN PRINT 'TAUT PIS... AU REVOIR...' :: END 

2000 015PLAT ATll.lJERASE ALL :"bj J JJJJJJ JJc IJEU OE LA I 

t 1 I ROULETTE I I I' 

Z010 OISPLAT AT(6.1);'I RUSSE 1 • J JJ JJ JJJJ J** 

ZOZO DISPLAt AT(10.1):-ALL0NS Y..* 
»J0 »0R I'l TO S 

2040 DISPLAY AT(lfl*2*ltS)f"C0W"ilt" ->* 
ZOM ACCEPT AT(10*2*l.i;):lt :: IF «-'•" THEN £1 10 
2060 IF RND>I/6 THEM 2110 
20/0 DISPLAY ATU0*2*I.17):*BAHG I* 

ZOBO DISPLAY AT{ZZ,1):*JE CROIS QUE CE N' EST PLUS LA PEINE 0' INSISTER...* 
Z0» MI«T * b< Mie »eM 



2100 SIOP 

2110 DISPLAY AT(10*2*I.17>:*CLICK I* :: NEXT 1 

2120 DISPLAY AT|?2,I) i'SRAVO ! VOUS AVEZ SURVECU I 

COS CAGNEZ ANSI 101* 

2130 JACXP-JACKP-IO :: SOKE-10 

2140 CALL SUITE 

2 150 SUBEHD 

21S0 I 

Z170 SUB ENCOREICAINSJ 

2180 DISPLAY ATI21.0J :*VOULEZ-VOUS CONTINUER 7" 

Z190 CALL XIY(O.A.B):: IF A--1 THEN 2190 

2200 OISPLAT AT(21.2S)3EEP;CHftt(A) 

2210 IF A-79 OR A'lll OR A-B9 OR A-121 OR A'49 THEN 2280 

ZZZO IF A07S ANO AO110 AND A<>48 THEN 2190 

Z230 PRINT 'REPONDEZ "F" POUR FINIR - 

2240 CALL XE»{0,A.B):: IF A'-l THEN 2Z40 

2250 IF AO70 ANO A<>102 THEN CALL CLEAR :: GOTO 2180 

2260 PRINT -TANT PIS. . .'■ ,'VOUS PARTEZ AVEC--.GAINS; T. . . . 

2270 STOP 

2Z80 DISPLAY AH21,l):"" 

2290 SUBENO 

229S I 

2300 SUB RECLES 

2310 RESTORE 2510 

2320 FOR 1*1 TO IS 

2330 READ A* 

2340 CALL CHAR(128'I,AI) 

2150 NEXT I 

2360 CALL COLOR( 13,10.1 . 14.10.1 ) 

2380 CALL SCREEN{8) 

2400 CALL CARCOL(S.l) 

24)0 READ Ut 

2420 OISPLAT AT(1.1)ERASE ALl:UI 

2430 T-2.S 

2440 READ LI 

2450 IF T>12 THEN CALL SUITE :: OISPLAT AT(I.l):Ui :: I-Z.5 

AD If 

2460 W*I 

2470 IF LJ--FIH- THEN CALL SUITE II RESTORE :: SUBE1IT 

Z480 IF Lt-'»* THEN T-13 :; GOTO 2440 

2490 IF LlO" THEN OISPLAT AT|2*T-l,l):lt 

2500 GOTO 2440 

2510 DATA 0F0F0F0F,OOC«OO0C«F0F0F0F.OO«H)000FOFOF0F0.F0F0F0Fa l FOFOF0f0FFFFFFFF.r 

FFFFFfFFOFOFOFO.FFFFFFFFOFOFOFOF.OFOFOFOFFFFFFFFF 

2520 DATA FFFFFFFFFFFFFFFF.FOFOFOFOOFOFOFOF .OFOFOFOFFOFOFOFO.FOFOFOFOFOFOFOFO.OF 

OFOFOFOFOFOFOF.OOOOOOOOFFFFFFFF.FFFFFFFF 



2530 DATA * oyiiocloclM fockocofd 



Mil 



I 1 1 



I 1 



ttj 



2540 DATA ..VOUS ALLEZ JOUEfi A UN JEU DE.JACXFOI EN UTILISANT LES. FIGURES SUIVAN 

TES:,— > DES CERISES.--> UN CITRON. --> UN DOLLAR CEANT 

2550 DATA — > UNE CLOCHE.--> UN SAC D'ARGENT.-> UN POINT 0' INTERROGATION (HI 

STERE).-- > UNE CARTE JACX POT.--> UNE FLEUR 

2560 DATA '.VOUS 01SPOSEZ AU DEBUT D'UHE.SONM D'ARGENI ALLAN! 01.30 A 401., .AVA 

NT CKAQUE NANCHE VOUS.DEVEZ KETTRE DANS LA MACHINE 

2570 DATA DE L'ARGENT ENTRE 11 ET CE.OUE VOUS POSSEOEZ. .*.LA MACHINE FAIT AlORS. 

APPARAITRE TROIS COLOHNES.OE SYMflOLES EI ATTEND OUE 

2S80 DATA VOUS DOHNIEZ LE DEPART. EN APPUYANT SUR ENTER. PUIS L'ARRET OE MEME MANI 

ERE. VCUS RETOUCHEZ AlORS LA.SOHME D'ARCENI INTROOUITE 

2590 DATA MULTIPLIEE PAH UN C0EFIC1EHT.FONCTION OES TROIS SYHBOLES.'.Sl VOUS ETE 

S RHINE UN JEU DE. ROULETTE RUSSE SUR 1 ESSAIS 

2600 OATA PEUT VOUS FAIRE GAGNER 101.POUR CONTINUER. .'.VALEURS DU HULTIPL1CATEUR 



2610 OATA 4 
2620 DATA 3 
2630 DATA 1 
2640 DATA 1 

L'ECRAN 

2650 OATA BONNE CHANCE 
2660 DATA FIN 
2670 SUBENO 



2 CARTES JACX POT 
J MEWS CARTES 
2 HEMES CARTES 

51 IE MOT CHANCE 



APPARAIT EN HAUI A 



..APPUYE7 SUR UNE TOUCHE POUR COHKHCER Lt JIU. 



: IF 11-— THEN RE 



SOLUTION DE L'HIPPOREBUS: 




10 


1 OR I 1 TO 9 




20 


READ X 




30 


PRINT CHR$(X) ; 




40 


NEXT I 




50 


END 




60 


DATA 70,79,82,77,65,84,65,71 


69 
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PETRO $ 



Vous etes a la tete d'un pays en voie de developpe- 
ment et vous devez le (aire prosperer. La gestion eco- 
nomique et politique que vous allez adopter vous per- 
mettra peut-etre de rester au pouvoir! 

Louis-Marie ROCQUES 



Mode demploi du programme 

Leieu : Petro $ est un jeu de simulation et de strategie. Le joueur est 
a la tete d'un pays en voie de developpement, il doit le gerer econo- 
miquement et politiquement atin de le (aire prosperer. Pour gagner 
la parlie, le joueur doit remplir son contrat, c'est-a-dire qu'il doit res- 
ter au pouvoir le nombre d'annees qu'il a choisi au depart pour son 
mandat. 



(Le joueur debulant tentera de tenir 2 ou 3 ans. Avec un peu d'expe- 
rience. on essayera un "septennat" et. pour les bons joueurs, pour- 
quoi pas 30 ou 40 ans!) 

Apres avoir tape le programme, lancez le avec Fl 

Le programme debute par: CONTRAT? 

En reponse, vous devez rentrer un nombre qui correspond au nom- 

bred'ann^es souhaite pour votre mandat Ex.: 7 EXE_. 

ANNEE ici commence le bilan annuel (I'annee correspond au 
bilan de depart) 

Tapez ICONTL . 

. Remarque • : Durant tout le Jeu. II faudra apres un aflichage quel- 
conque 

• soit taper CONT si lafficnage correspond a "PRINT" (et done si 
STOP apparait a I'ecran!) 

• soit taper une reponse suivie de EXE si latfichage correspond a 
un "INPUT " ou une question (et done il y a un "?" a I'ecran !). 



. ARMEE . : Ici. vous entrez dans le secteur de I'armee. tapez CONT 
RECRUES ? vous demande combien de npuvejles recrues vous vou- 
lez dans votre armee. 

TANKS A 1 00 000_S ? vous demande combien vous voulez acheter 
de tanks. 



GUERRE ? Repondre par O ou N si voulez ou non lair© la guerre 

• VENTES • C'est le secteur qui rapporte de (argent 
TERRITOIHE A 1 000 $ ? venle de territoire. 



BARRILS A 1 000 $? vente de barnls ( si vous en avez 1 ) 

. DEFENSES • : C'est le secteur qui vous permet d'investir 

TERRITOIRE A 10000$?: Achat de territoire 

USINES A 1000000 $?: Achats d'usines 

FORAGE A 5000 $/km 2 ?: Forage de vos terrains petroliferes qui 

rapporteront alors des barnls de petrole que vous revendrez 

ensuite ! (meihode dite a la "J.R. EWING") 

AIDE SOCIALE ? C'est I'argent que vous donnez au secleur public 

pour la construction de biens sociaux. etc Cela favonse les nais- 

sances et limmigration ■ I'accroissement de la population 

La se termine les transactions pour I'annee 

Eventuellement, peut alors se produire une guerre 

Si la gestion de votre pays a ete same, viendra alors le bilan de 

I'annee 1 et vous commencerez la nouvelle annee. 

Mais si vous avez ete mauvais president 

Le jeu sarrete lorsque voire contrat est rempli. 



CONTRAT' 
5 

AHNEE8 

PAYS: 398 KK2 

HA8ITAHTS: 1889 

1888 CHOHEURS 

ARGEHT: 1898888) 

FORAGES: 9 KB2 ET ! 
BARRILS 

8 USIKES 

«flRKEE« 

HOHNES: 8 , TRHKS: 

RECRUES? 

389 

T8NKS A 1888881? 

I 

6UERRE? 
H 



«VEHTES> 

SREEHT: 1889999! 

TERRITOIRE fl 18998J? 

19 

flRSEHT: 1188888* 

BARRILS A 18981? 
B 

♦DEPEN3ES* 

REBEHT 

TERRITOIRE A 

8 

flRSEHT: 

USIKES A 

1 
flRSEHT: 



rORfiSE fl 5888* LE KH 

2? 



9R6EHT: 98998$ 
SIDE SOCIfllE? 



LIST 18 

5 VAC UNP "COHTR 

AT",H:*=" VOUS 

ETES" 
18 ft2=lE4iF=U6:H= 

l£3:95=lE5:flS=5 

e3:T=3e2:A4=H:C 

=H:ft3=F 
189 PRT :PRT "flHHEE 

";A:6SB 1e3 
119 IF UiliPRT "RA 

PPORTEHFlfll;") 

":F=F+fil = eSS ?e 

3 
128 PRT :PRT CSR 5i 

"«Et":PRT " 

H0r1r1ES:";S;" , 

TRHKS:";K 
138 INP "RECRUES", V 

:H=H:H=138:60T0 
2e3 
132 S=S«V 
148 PRT "TANKS A"; A 

5! "I";: INP V* 

B5:K=148:60T0 3 

e3 

142 k--;:*v 

158 inp "6uerre",0» 

:1F 9»="0";A9=A 
9»l:6S8 4e3:60T 
128 



168 PRT CSR 5i"*VEN 

TES*":SSB ?e3 
1?8 6S8 5818*179: 

N=T:60TO 2e3 
1?2 F=F*V«fl2:T=t-V: 

6S8 7e3 
188 PRT "BARRILS fl" 

;A4;"«";:INP v: 

H=P:N=189:60T0 

2e3 
182 P=P-V:F=FtV*94 
288 PRT CSR 41"»tlEP 

EHSES*":SSB ?e3 
218 6SB 5918*A2:H 

=218: SOTO 3e3 
212 T=T4V:SSB 7e3 
228 PRT "JSINES fl"! 

A3:"t";:IN? Y:X 

=fl3:N=228:S0T0 

3e3 
222 U=U*V:6S8 7e3 
238 PRT "F0RN6E fl"! 

R6:"t IE BB"ii 

INP V:X=A6:N=23 

8: SOTO 3eI 
232 R=R*V:6S8 7e3 
248 IHP "AIDE SOCIA 

LE",V:X=1:H=248 

:SOT0 3e3 
242 L=V 
388 IF F/1e3*PX1e3 



*S*88«K)tRANI;6 

SB4e3 
328 PRT :IF H-S;199 

»U:fil=5£5«RAHt< 

IJlSOTO 338 
322 B1=1e4*U»RANI 
338 P=P»IHT <R*2«RA 

Nl):fll=IHT fll:C 

=H-S-19«-199»U 
334 IF L/H<28;PRT " 

LE PEUPLE A FA1 

N"lt;"lVNCHE":E 

HD 
348 H=L/47+7 
368 F=F-18<S 
378 FBR 2=2 TO 6:A( 

Z)=INT (N(Z)»(1 

.3-RAHi».6»:NE 

XT Z 
488A=fltl:IFfl>N;PR 

T :PRT "-CONTRA 

T REHPLI-":END 
418 IF C/H>.6:P8T " 

REVOLTE DE CNOIt 

EURS:";t;"E60R6 

E":END 
42B IF S/H>.61PRT " 

POUTCH NILITAIR 

E:";f!"FUSILLE" 

:END 
439 IF F<2e41PRT "C 



OFFRES VIDES:"; 

J;"EXHILE":END 
498 SOTO 198 
1888 C=H-ie»R-!99tU- 

S:IF C>9 THEN 1 

894 
1882 C=8 

1884 H=1HT H:K=IHT K 
:S=INT S:U=1NT 
U:C=1NT C:T=1NT 

T 

1885 IF R>T:R=T 
1896 PRT "PA7S:"1T!" 

KN2" 
1888 PRT "HR8ITAHTS: 
";H:PRT Cl" CHO 
HEURS" 
1819 6SB 7e3:PRT "FO 
RR8ES:":R:" KN2 
ET":P!" BflRRIL 
S" 
828 PRT U:" USINES" 

,:RET 
888 IF V(8 THEN N 
818 IF V)« THEN H 
N=H«2:60T0 N 
IF V<8 THEN N 
IF V»X>F THEN N 
H=N*2:F=F-V«X:6 
OTOH 
4888 PRT ">6UERRE!<" 



i:IFS*88tKXAt 

»tRANl»4E2 THE 

K 4188 
4818 V=S:S=RNN!«S:6S 

B 6e3:K=8:F=F*R 

RHt'2:P=P/2«RAH 

t:PRT "<PERDU>" 
4828 T=TtRAH! 
4838 U=U-U«RAHt'2:P= 

INT P:6SB 1e3:R 

ET 
4188 F=FtF»RAHI:K=K- 

,2«K«RAH1:V=S:S 

=RAHt«S:6SB 6e3 
4185 IF A9>AlPRT :PR 

T t;"HORT EH HE 

ROS":EHD 
4118 PRT "<6flSHE>":T 

=TtT*RAHI:6SB 1 

e3:RE7 
5918 PRT "TERRITOIRE 
R"!B2;"t";:INP 

V:RET 
6888 H=H-V*S:RET 
7888 F=IHT F:PRT "AR 

6EHT:";Fl"t":RE 



T 



f* 1 




BOURSE 



Au cours du jour, votre portefeuille d'actions peut 
valoir une fortune ou une poignee de riz. A vous de le 
gerer convenablement pour ne pas vous retrouver sur 

la paille! 



Jean-Francois LICCIARDI 



Jeujusqu'a 5 personnes. Le capital de depart est de 2 000 francs, le 
premier a atteindre 4000 francs a gagne. On peut acheter ou vendre 
des actions sous la forme A5Bou Asignifie Achat (ou Vente), 5estle 
nombre d'actions (jusqu'a 9) et B est le nom de Taction. Pour passer, 
appuyer sur NEW-LINE. Le programme s'occupe des frais de ges- 
tion. controle Tactif des joueurs et diffuse regulierement les cours 
du jour. Attention, un crash financier ou une devaluation peuvent 
mettre en peril fe meilleur de vos plans ! 



Z*8A 



' nrr so , a; "noiibbe i 



OdO THEN GOTO' 2 







LOTO: N'2 




Le programme pour 


"X 702 P 


peut etre modifie de 


la tacon 


suivante: 






COURTY 


LIST 17 


139 IF J=65:F=S8:60 


5 H=H»|: u SIi 8:6= 


TO 158 


189 


148 F=A(J»1) 


18 FOR 1=68 TO 65 


158 A(I)=F/18t4 


29 ISP "HUNESO",A( 


198 SOTO 988 


1) 


588 IF J=65;fi(J)=59 


25 NEXT I 


:60T0 99 


38 FOR 1=68 TO 65 


519 J=W:80T0 98 


32 C=flCI>:H-C:GSB 


888 A(I)=A(I)tl/6 


ll:B=X:D=V 


988 NEXT I 


34 IF X)9!X=9 


319 PRT "«" 


36 N=X«9:SSB 11 




38 IF i*C;F=t:60T0 

41 
49F=D 






41 E=X-1 


LIST 18 


42 IF X=8;E=8 


2 FOR H=l TO 58 


43 fl(H)=IHT 8(N)tl 


5 K=66:NA1T 8:S=8 


*(EtF/6)/S:PRT 


:A=8:U=8 


C: 


18 FOR 1=59 TO 59 


44 H=t:6SB tl 


12 A=1NT fl(l)*A:S= 


45 IF Y*C! IF X'B T 


IHT (A/N*.5) 


HEH 44 


14 IF S=U THEN 199 


46 IE V=CiA(k)=(Xt 


28 H=|:6S8 ll:C=S- 


D/GV6 


U:«=V:H=X 


48 HEXT I 


38 IF X=8 THEN 188 


49 H=59:SSB IlilM 


35 IF X(C;C=X 


:P=X:H=58:SSB t 


48 FOR J=l TO C 


l:V=V 


58 L=IH1 (H>RflHI)t 


51 IF V=8 THEN 59 


1:8=1 


52 F9=FRAC F8tP'6* 


58 IF L=I THEN 73 


IHT F9 


68 FOR 8=1 TO L-l 


53 N=V:SSB tl 


78 R=Y:SS8 tl:HEXT 


55 IE t)V;V=V:60T0 


8 


53 


73 FOR F=68 TO 65 


57 B(V)=(XtU/6)/6 


75 IF y-M) THEH 


59 fl=FRflC F8 


59 


61 FOR 1=51 TO 58 


7? NEXT F 


63 B=FRAC A(I):A(1 


89 A<K)=Y:K=K»l:r= 


)=IHT fl(l)tfl:fl= 


8:U=S 


BIHEXT I 


95 IF K>65 THEH 19 


65 F8=1HT F8t(6t69 


3 


/S)/S 


96 NEXT J 


78 J=68 


198 HEXT I 


88 FOR 1=1 TO 49 


183 FOR F=68 TO 65 


96 IF KA(J> THEN 


184 PRT A<F>: 


388 


185 fl(F)=9:NEXT F 


IBB IF Dfl(J) THEN 


197 PRT "•" 


588 


119 HEXT « 



ECRAN MAGIQUE 



Ce programme permet non seulcment de dessiner 
directement sur I'ecran mais en plus, il possede des 
commandes puissantes pour les motifs repetitifs. 
Notice d'uWisntion du programme 

- le curseur est depiace grace aux fleches de direction. 

- N permel de passer du mode d'ecriture au mode d'eMacage el 
vice-versa 

- A suivt d'un nombre de a 9, permet d'apprendre une serie de 
commande a I'ordinateur Pour sorlirdu mode apprenlissage.il soffit 
d'un second appui sur la louche A 

- F smv.d'unnombredeOa9.executelaseriedecommandeprece- 
demment apprise 

Exempip A 1 - - , • • 'A; apprend a I'ordinateur a 
tracer un rectangle. (F ; I 1'execute 

-fvt: Suivi dun numero' - memorisation d'un ecran (on peut en 
memcriser 10. de0a9V 

- P: Suivi dun numero— restilulion d'une page (ecran). 
- 1 Inversion video. 

- x : Trace dune droite horizontal 



w ■ 



- y Trace d'une droite verticale. 

- CLEAR Effacemenl de I'ecran 

- O ■ Suivi de 4 nombres formant 2 chlffres - Iransfert du curseur 
Exemple 0> [ V [Tj 2_ 'jj transfer! du curseur au point {1 1.21). 

- C : Suivi d'un nombre de 2 chiflres ■ trace d'un carre. 

- D : Definition de I'ongine d'une droile (de a 9). 
Exemple: j 

- ENTE R : Suivi d'un chiff re a deO a 9- trace une droite entre Tor igine 
definie par Da et le point oil se trouve le curseur. 

Les commandes n'ont pas besoin d'etre validees par la touche 
ENTER. Tout appui sur la barred'espace provoque la repetition de la 
derniere louche pressee. L'inversion video peut etre interrompue 
par un appui sur la touche SHIFT. 

Pour 48 K, il faut proteger la memoire a partir de 65020, pour 32 K a 
partir de 48640. 



• 3 SOSUB 16B9 -IMPLANT AT KW D£ LA ROUTINE LM DE TRACEE DE DROITE 57B 

SB CLEAR 1830B:t:LS 

:.' OEFINTA-I 

78 '••• ENTREE D'UNE COnMANDE 

39) PHIMT31B8- "ECRITURE' 

98 Din »«UBi.-l»< IB, 16) 

iee PsiNTasi.-cormANDC* I 

118 Z«=C« 

I 28 C*-!F*EV» 

138 If PE£K<14*00>>*I2B THE* C»=2« 

1*8 IF N-B SET(X.vi 

158 IF N*l SETtl.ViiSESETCX.Y) 

168 if c»-" then i;a 

178 IF ASC(C»H32 THEN 198 

188 =RINTS6t.C«i 

198 GOSU3 2*B'IDENTIFICATI0N 3E LA COMMANDS 

288 IF F-l RETUON 

218 PRINT ail&." 

228 GOTO 188 

238 '••• ROUTINE 0' IDENTIFICATION D'UNE CWflANM 

2«.B PRINT 3375.'X'JX!!PRINT 3*39. "VIVl 

238 IF C»-*t* GOSUB 4*8: RETURN 

268 IF C»-CHR«UB) GOSUB *B0:R£TURN 

278 IF C*-CHH*iai SOSUB 528:RETURN 

298 IF C»-CHR«<9> GOSUB 6*B:RETURN 

298 IF C«-'0' GOSUB 568:RETURN 

3W IF CB-'N* GOSUB &ea:RETURN 

318 IF C»-*A* GOSUB 728:RETURN 

328 IF C«="F- GOSUB 93B:RETURN 

338 IF C«-'"i' GOSUB 1B38: RETURN 

3*8 IF C»=*P* 605UB 1178IRETURN 

33B IF C»"CHR»(31I GOSUB 1268:RETURN 

36B IF C»=*I* GOSUB 12B8 

37B IF C»='C* GOSUB 1398 

3BB IF C»-'D* GOSUB 1310 

393 IF C«=CHR»<13) G0SU8 I33B 

428 IF C« = *X* GOSUB 162B 

*!B IF c«=*<" S05UB 1658 

-;.,: -■--■..--■ 

*38 ■••• EN HAUT 

4*8 Y-V-UIF V-8 THEN V=0 

*38 IF N-8 SETIX.Y) ELSE RESET(X.Y) 

*t,B RETURN 

*7B ■•*• EN BAS 

*S8 Y*V+I:IF Y>47 THEN Y«*7 

*9B IF N-8 5£T<X.Y) ELSE RE5ET(X,Y> 

388 RETURN 

JIB •... A GAUCHE 



568 FOR 1=1 



else reset;: 



TRANSFERT DU POINT 




938 



A»-lNKEY»:JF A»=* ■ THEN 578 

IF ASCIA«K4S OR ASC(A*)>37 THEN 5B8 

Al I)=VAL(A*)1NEXT 

Xl-A(lHia*A!2):VI"A(3)*18*A(*)iPRINT3116.X11"/*IYll 

IF XKfl OR Xl>99 OR Vl<8 Oft Yl>47 THEN 56B 

X»XHY=Y1IRETURN 

*••* A DROITE 

X-X*IUF X>99 THEN X-99 

IF N=B SET(X.Y) ELSE RESET(X.Y) 

RETURN 

'••• CHAN6EHENT DE H0DE(ECRITURE<=OEFFACAGE ) 

IF N-8 LET N-l ELSE N=B 

IF N=0 PRINT 3iee. "ECRITURE*: ELSE PRINT BIBB. *EFFACAGE" 1 

RETURN 

■••* ROUTINE D'APRENTISSASE 

N»B:A*=INKEY»:IF A»=*' THEN 728 

IF ASC<A»K*B OR ASC(A»)>57 THEN 728 

A°VAL(A>):PRINTail6iAtZ; 

C»=INKEY« 

IF PEEK(14488)>=12e THEN C*=Z« 

IF N=l SET(XiY):RESET(X.Y) 

IF C«=*" OR C»=CHR»<13) THEN 753 

IF ASC(C*K32 THEN BBB ELSE PS1NTS61.C*: 

IF LENiP«(A>)>253 THEN C«"'A' 

IF C*-*C* GOSUB **8:G0T0 918 

IF C«=1HH*(1B) SOSUB 48BJG0T0 910 

IF C»=CHR«(8) GOSUB 520:GOTO 918 

IF C»=CHR*{9) SOSUB 648:GOTO 910 

IF C«=-N* G0SU6 6BBJSOT0 918 

IF C»='I - :60Sue 12BB:G0T0 918 

IF Ct-'X'iGOSUB 162BIG0T0 91B 

IF C*"-Y':G0SUB 1650:SOTO 91B 

IF C»-*A' RETURN 

GOTO 758 

PRINT 3375i*X' i X ! :PRINT3«39i ■ V !Y: : Z»=C»: P»(A1- 

P»(A)*C»:GOT0 75B 

'•»• RESTITUTION D'UNE FIGURE 

N.8:A*=INK£Y»!IF A»=" THEN 938 

IF ASC(A*K48 OR ASC(A»)>57 THEN 93B 

A=VAL(A«l!PRINT3116iA! 



978 FOR J = l TO LENfPKA)) 
968 C«=MID»lP»(Al,J, l):GOSUB 258 
?9B PRINT 3375.*X':XliPRINTa*39.-VtVT 
888 NEXT 
818 F=8:RETURN 

B28 '«•» rlEMORlSATION D'UNE PAGE 

838 A*=INKEY»:IF A«J=" THEN 1838 
848 IF ASCIA*X4e OR ASC(A»)>37 THEN 1838 



I A=VAL(A«)iP<)INT3llbtA: 
I point a24At*PATIBM : 
I for 1=3 To 15 
I Plt-"ll l>1536«*64«] 

I fi-jr j B g rO 38 

" "■ ' 1*J1 
I PI*>l>t«*CMftf(l 
I NEXT J 
I MHA.u-Plt 
I NEXT 
I RETURN 

1 ■ ... VISUALISATION D'UK PAGE 

) A*>tNKEVtlIF *§»•■ THEN M7B 
I IF ASC(AI.(49 OR ASCfA«1^37 THEN 1178 



^* 



# 



PRINT 3244." 

RETURN 

"••• EFFACEMENT D' ECRAN 

CLS: RETURN 

•••• INVERSION VIDEO 

FOR 11=15368 TO 16383 STEP 6* 

FOR J J= 1 1 TO 11**9 

PP-PEEK(JJ) 

IF PP»32 LET PP=129 

DD»191-PP:KK-12B*0D 

POKE JJ.KK 

IF PEEKI1**64)"1 THEN RETURN 

NEXT JJ 

NEXT II 
1378 RETURN 

13B0 '••* TRACEE D'UN CARRE 

1398 A»=INKEY» :IF A*=" THEN 1398 
148B IF ASC(A«K48 OR ASCIA*)>37 THEN 1398 
1*18 NN-VAL(A»J 

1428 A»-INKEY*:IF A»=" • THEN 142B 
1438 IF ASC(A*K*B OR ASC(A*)>57 THEN 1*2B 
1**8 NNiNN*18-VAL(A«> 
1438 IF X*NN>188 OR Y.NN>47 RETURN 
1*68 FOR 1=1 TO NN 

1*78 SET (X*I.Y):SET[X*I.Y.NN):SET(X.Y*I):SET(X.NN,Y*I) 
1*88 NEXT I 
1*98 RETURN 

1588 '••• POINT D'ORIGINE-DROITE 

1318 A*=INKEY«=IF A»=' • THEN 131B 
152B IF ASC)A»K*B OR ASC(A«)>37 THEN 1518 
1 538 NN=VAL ( At ) % X I NN ) -X I Y ( NN I =Y ! RETURN 
13*B **♦• TRACEE D'UNE DROITE 

1558 A»=]NKEY»UF A«=" THEN 1338 
1568 IF ASC<A*X*a OR ASC<A«)>37 THEN 1538 
1578 NN«VALIA»):ZM)=X(NNl:Z(2)=Y{NNl:Z!3)->:H*>-V 
1560 Z(8>=ABS(N-1 ) 
159B SD=USRHVASPTft(Z(8)>) 
16B8 RETURN 

1618 '••• DROITE HORIZONTALS 

162B Z<1)=B:Z12>=V!Z(3)=99:Z(*>«Y 
1638 I<B)-A8S{N-l):SD=USRKVARPTft(Z<Bm: RETURN 
1648 "••• DROITE VERTICALE 

1638 ZCl)-XiZ(2)=8:ZI3)»XiZ(4)-*7:G0TO 1638 

1668 ' WMWHHMIHM IIIHMHIHIIIHWiW H 

1678 'IMPLANTATION DE LA ROUTINE DE TRACEE DE DROITE 

1688 Crt^AB ' 16i 32 «u *B **lon LA TAILLE DE LA KEnOIRE 

1698 IF CH=16 THEN AD=32256 ELSE IF Cn=32 THEN AD--16B96 

ELSE IF CM»48 THEN AD— 312 
1788 FOR N-AD TO AD* 266 

171B READ A : IF A>235 THEN A-A/ I8***CH-64 
1728 POKE N,A 
1738 NEXT 

17*8 IF AD<8 THEN K=65336*AD ELSE K-AD 
1758 D£FUSRI«AD 
1768 RETURN 

177B DATA283. 127. 10, 229, 253. 223. 233. 78. 2. 253, 76. 4, 253.86. 6 
1768 DATA253.94,B.237.67.28. 1278.285, 13. 1 278. 221 . 33. 24. 1278. 1 2B 
1798 DATA3B.1, 186.54,2.38,235, 121.187.46, 1 .56, 2. 46, 233.3*. 2* 
1888 DATA 1270. 120. 1*6,2*2-35. 1260.237,66.183.121. 147,2*2,63.1268 
1818 DATA237.68. 111,34.26. 1278, 124, 1B9.56. 32. 203. 47, 59.38. 127B 
1B28 DATA37,248,38.25, 1278.221.134.5.50.29, 1278.56.30. 1270,133 
1838 DATA58. 38, 1278, 221. 198, 3. 56. 15. 221. 158. 3. 50. 3B, 1278. 5B. 28 
184B DATA1278. 221, 134, 0.58,28. 1278, 237, 75. 28. I 278. 285. 13, 1278. 24 
1858 DATA2B9. 1 25. 203. 47.5B. 30, 1270, *3, 2*8. 58. 2*, 1279.221, 13* 
1868 DATA*. 58, 28. 1278,56,38.1278. 132.38,38.1278.221.198.2.36. 13 
1870 DATA221, 158.2,38.30, 1270,38.29.1270.221. 13*. 1.30.29.1278 
1BB8 DATA237.75, 28. 1270.205, 13, 1278, 2*. 209. 62, 1.24,2.62.2.229 
1890 DATA213, 197.245. 197. 121.183.31,71.128.128.128. 183.48,3 
1908 DATA56.3,5,2*.243.88,193.128> 183.31,93.106.38,0.41.41 
1910 DAT A4 1.4 lift 1.41, 121, 146. 1 46. 146. 133, 128, 147, 1*7. 71,22 
1928 DATA0.25. 17,0.60.25.126. 163,258.2*1,1260.62.128.119.173 
1930 DATA164, 62. 1.40, 4,135. 5. 32. 252, 71. 2*1. 25*. 1.32. 4. 126. 176 
1940 DATA24.3. 128.47,166.119. 193. 209, 223, 201 . 233. 126.8. 1B3 
1938 DATA202. 180. 1268.205, 176, 1260,281.8,0.0,8.0.0.0 



TIRMOTS 



Detruisez avec vos fusees les mots mal orthographies 
dans les phrases qu'affiche votre SPECTRUM. 
Le programme fonctionne en mode "CAPS LOCKS". 
Pourdeplacerla fusee, utilisez les fleches du clavier et 
la touche 0. Le choix de ces touches permet egale- 
ment I'utilisation des manettes de jeu. 
Le programme utilise la definition de 10 caracteres 
graphiques (sous-programme 5000) : lalettreApourla 
fusee et les lettres B a J pour le parachute. Les carac- 
teres constituant le parachute sont disposes de la 
maniere suivante : 

BCD 

E F G 

H I J 

Pour changer ou ajouter des phrases, modifiez la data 
en ligne 6000 en modifiant si necessaire la valeur de 
la variable NBP en debut de programme. La longueur 
des phrases ne doit pas exceder 26 caracteres. 
Une partie comprend I'affichage de 12 phrases tirees 
au hasard. Elle se terminera avant si vous utilisez 
toutes vos fusees. 



Joel TAROUIMJ 



rcm -- -■ T i RM< > T ?--;r 

»FK Ul.B OU 1 4'JB-B3 
REM © ODEL TOfiOLIIfJJ 

"I" CO SU& 



i* eeti "iti"*^ 



CLEOR 

LET O* 



EFC 
H13" 
* = - , aflOF)F)fl^ftFiflFlF.ftFif : . 



PSPEP 7 CLS 



REM 1 CHOIX &C LF. 
REM 

LET PMsINT (fiHO.NI 
If PM : 60E>©.»*eP OP 
THEM GO TO 1AB 
LET & IPH-6BO0) =1 : 



B,0, 6PIGHT 




SPECTRA 

pjij DEM 

T-73 DDtHT or a i BorrMT i tnu ° 1CI P&INT FtT 4t>,Il; "NDNJ PERDU'' 

175 PRlf'T B70 PRINT RT ].(», 1 1 , H.I 

1S0 PERD Pt,NC,F*,£« g 90 LET NDr»NOf-l 

19B GO SUS 2700 peie CO ?UP 2100 

im rem --------- ----rrr----"r s>ib priht rt i&,a>; -RTTEfrrioM on 

§OB PEM I RECHERCHE COORD. MOT' RECOMMENCE" 

!2S PS^kSi to 3e ill! US i:!»3!I??3k™II 

=>50 IF RTTR (2,K>=NC»S6 THEN LE JjjfJ g^J . PRINT RT 5 , 0, "TERMINE 

r FIN"K i PLUS OC FUSEES": GO TO 1.230 

rf7S LET LONGLieruR:r>fJ-f>EBUTH , a\ieC ";NBF;" FUSEES'' 

§S8 PEH ;-OEPL«CeMENT-VuSE C ""7 3|30 "Wigt^ 0,S;»NOHBRe DE PHR 

Sto lI? xlz'-'Lii'vZll £$*' P "! N I£Zz ia ' 5 ' " NOMBRE & ' e&s 

i=n M? 5SJ' iimIf?^"1- o»r 5f iB 12O0 jr fpH-32 AND ESSOINS THEN 
*t INKEY*-^" AMP X*3J? PRINT TLR5H 1 ; RT 1ES.13, "TRC9 BI 

3P5 TF INKEV» = "0- THEN GO TO *<D f^ o0 JNPLIT "UEUX TU RECOHHENCER 

B .l?0 IF RoX OR B«>V THEN PRINT i 3 a e R J P R**"" THEN GO TO 1350 
HT B,R, " 1170 IF R«I1)«"0"' THEN RLIN 

Oia PRINT RT V,X)"R" jnpS NEU 

35S S£.. TO ° 1S 19S0 REM -■■•SOUS-PnOGRRMME9»"«n 

:,.';;' Z^J T ria 7 2000 REM S/P chute fusee 

tS? S5m la 2010 LET TY.Y+1: LET TT-.S 

ti© let ■7Z r /-i"C£ : f~K*ie> ?"= a ron K " ao X° i a .. 5 T. CP ~ TT 

■112 REM TEST HOT TOUCHE ?S?S E3»p TTVlftalK* 

414 IF RTTP <Y.X»=NC,56 THEN CO %%*% ^INT RT TV '.1 , X^fl" 

l%*1? RTTR rV,X) <>» THEN OO T %%%% ^TrT JeWhEN PrTnt"''^^, V 

J§|£SiKr S? ?;5;::r" Iggl'gglsjr 1 

JsS let P k4k-! lieS fSIh Sfficmroe reserve fusee 

■fSS L ? T -S = V«™ SlOO REM ET TEST FIN DC PRRTIC 

430 CO TO 4&& 2110 IF NBF-0 THEN GO TO 1210 

5^9 PEM jisa Tf TPM> 11 THEN OO TO 1220 

600 REM 1 MOT TOUCHE GRGME I 3130 print RT 19,0; INUERSE 1; I 

thoi sew rzC~ZZ~ZZZ,~,:7~Tr, un s," detrutt LE MOT MRL ORTOOR 

t"S0 LET f*»' " LET- 0*«0»*M*( TO ft '^ H 54 .. 

3»- (LONC"UEUF«.(-a'i I »F* 3ii« oofUT of 21.0.Y*' TO NBF-ll 

fr,-?0 REM SUPPRESSION DU MOT p l*S PRINT RT ^ 1 '»' T » 

e-40 prjiit rt .-»,(>. u* |3SS SrM U ErrcT HOT TOUCHE 

•:.-/ --o 6O6 if.*tP ISSS beep 1 1 BMP .5.-1 BMP 

67P PRINT RT S, DEBUT, UBI TO LOW J g ? 8 beep l!i 
&UEUR) 2O10>OR K-l TO 3 

6E10 for k-4 to is p.eae eofloert a ,___ 

ess pf^jmt rt e.-i,e,u» ?aa« fop i»i to sa next r 

Cf* PRINT at >■.. nrPUT. D» 264.0 BORDER 6 

H?e BEEP .2,t0-H 7SR0 FOR 1-1 TO SC" NEXT J 

710 FOR I'l TO 39 NEXT I ?S»0 NRXT K 

72fl* ilfXT r. ^P70 BOROER 7 

7.10 FOR K.JF TO IT PRINT RT (S , ?(.6» RETURN _ _^ ___ 

0,U». NEXT K BEEP .3,-fl P7flO REM ©ECOURRQE PMPRSE ET RF> 

1 74.0 FOR K-ffO TO 21- PRJAH" RT K, ICMROC 

W,U». NEXT K ?710 LET C-J .' LET J *0> 

730 INPUT "CCRIT I.C MOT ",B* P71P PRINT INK 0," *J 

7O0 IF R*(>E* THEN GO TO 790 E/720 rr>R K-l TO 1-EN P# „_.._. w 

770 CO KOfi .i*fli0 27^0 JF P»IK. (." - THEN NE O H 

7*0 PRINT INUERSE l.ftT 10,13, "P £74.0 LET M*sPilTil TO I. - II 

F'R'JO'-;RT 1.3,0; "TU nnr'.nr ". i.'iir ru,> .-750 PRINT INK C; I1». INK 0; , 

EC'. BEeP l.O «-7f-» LET I-K LET C -C •! V-ET W»- 
7?)5 LET NBP-NBE»1 CO TO 793 

7S0 PRINT RT »1,»,U*. PRINT RT J1770 M 8X 7 K 

795'pRLISE 90A,-'qd TO 90' 7MB REM RrriCHAGK PHRR5E CVRCTE 

7S»S> qEM 3010 LETT ZhNC 

600 REH J HOT TOUCHE PERDU J ^020 PRINT INK I, RT 2. DEBUT, E#, 

14 



TO LEN P» 
. . . . . 

lUfiB IF Pfll 

.1070 NEXT K 

3080 PRINT IJ* 

'3090 RETURN 

4.0O0 PEM PRESENTRTION 

4.0SO LET 3» = " TIRMOTS" 

4030 BRIGHT 0. BORDER 7 PRPER 

CLS 

4.040 LET 1-9 

4050 FOR Kb-20 TO 6 STEP -1 

J.06O PRINT RT K.T,"R" 

40B0 BEEP . 0J.,K,-a 

10O0 PRINT RT K.T:" " 

4.100 NEXT 



.6. S« I TO I 



5300 RESTORE 5200 

S010 FOR X. cO TO 79 

5020 RERO CB 

5030 POKE *32600»Ki , CB 



5200 PflTR ie,5C.S6.5f,,S6, 124 ,25* 

,145 

?210 PRTR 0, \ ,3,7 , 15,31, f.3,63 

5220 DflTB lir, ,?SS . 35r, , P'iS,aSB,aB 

S ,253,255 

ease drtr 0,123,195,224,240,240, 



S?4.0 DFiTft IB?, 127 , 127, 10T'. 66,6ft, 

65, 33 

5330 DRTR 255,255,235,120,0,0,0, 



3390 PF,TR B, 15,32,64 , 123,0,0,0 

f-000 PEM PHRASES 

6O01 DRTR "TROIS PETIT COCHONS R 

OSES", 2, "PETIT" , "PET ITS" 

F.0O2 DRTR "DEUX LIONS ON ETE CRP 

TURES" ,3, "ON" , "ONT" 

6«03 DRTR "UtlE COLLECTION DE TIM 

ORE" ,4, "T IMBRC" , "T IHPRES" 

«OOJ DRTR "3E CROCODILE SEMBLC O 



■■SE" 



c l: '■ 



G«05 ORTR "LP. TEBRE FS RONPE",3, 

"•£3", "E5.T" 

^006 DOTR "JRI RCHETER UN TRPIS 

" ,2, "RCHETER' , "RCMETE" 

G007 DRTR "UE MES LR TRBLE " , 2 , "M 

!=.■*" , "MET1." 

C00B PFiTR "LE LOUP R OE &RRNCE D 

BNTS".8,' , OPOHDE" , "ORRHDES" 

6009 DRTR "LR UIL.LE DOPT TRRHOUI 

LE" , 4. '•TRR.MOUILE" , "TRRNQU ILLE" 

16010 DRTR " IL PLEU SLIP LR ROUTE" 

,2, "PLEU" , "PLEUT" 

6011 DRTR LR RECRERTJOI ET TERM 

INEE" ,3, "ET", -EST- 

SQta DRTR "CE H;ET PftA STUPtDC" . 

IbJ3 r,r.TR "LE?_I!>-IFRHTS S.DM SF»DE& 



14 DRTR 



;,omt- 



PLEUT OEPUIS TROIS 



S015 Df^TR "LE TELEUISEUR EST E 

6016 6nfp "LE CHR&SEUO ET SONT 

HKN",* ''SOHT-."50ir 

6017 PRtR "IL AURI miM ET FRO 

•if4"S!i?S"'c?V?J T r,.E,. n rar ..= 

JOLI" , 5 , " JOL I" "JOLIE" 



PANIQUE SUR LA VILLE 

,**I.CE ^^ / 



ifi-.mm 



Avec le peu de bombes restant dans tes soutes de votre 
biplan, arriverez-vous a vaincre la ville tentaculaire qui 
toujours se reconstruit devant vous? 

Jean BEAUBERNARD 



in papcrbumo 

llfl CALLIF098 

?ee as 

308 PL0T5.6.-ALL0! ALIO! 1C1 LE PILOTS. 

329 FV0T3,9.* 

3*9 pvor?. i;,' 

GRACE * 

36* PLOT2, IS,* A LA OMStZ D'ESPACEnENl- 

330 PLOtl', 18. I :PL0!2, 1 B, 1 2 :PLOT3. 18. ' Si 
OOUS ETES PREIS A L'ATTAQLC 

400 P".0I1,21,7:-»L0T2,21,12;PL0T3,2I,* 

APPUTE2 SUR UK TOUCME- 

709 PRJNTO*»'I7]CMR«C20] 

859 G0SUB8999' TRAKSf CAKACT 

869 GOSuBgem' INITIALISATION 

389 MUSir.1,1,1, I ;-"0RI»ITOW 

885 mjSICI.7,4, Il :AMKET« 

888 |FMO--TmCnCLS:&OT0399 

899 Nt^T 1:0010888 

399 cosuB5eee'Ffte»ic tours 

leee »eiiiijeu*> 

teia xB-.-3?rr8 = ie 

1829 PLOTl.9,7 

1959 PLOTS, 9, "SCORE: 

7:PL0T21. 9, "RECORD: 

RJ 

1969 J-2 

nae PLOTa, j. i 

1159 P10TI.J,— •sM«r 
1154 PLOII, J, -•---:« 

- :uftire 

1288 F0RI-IT031STEP2 

1243 S0UNOI.S.8 

1259 SOUNDI . 19900, 19 

1399 PIOTI.J,- i»»*--:IFSCRNtl*7.J)032 

THEH7999 

M90 Xi-KEI* 

1590 PLOIXB.IB.- -:lFB-tTHENlB»a 

1690 IFX«0" -TH£NUAIT4:PL0T11,9,STR«CS) 

-G0T02989 

1798 X8-I-] 

1750 TB'J:8=):£=8 

1899 TB-TBH :Pl_OTXB, T8, "WX* :$OUNOJ , TB, IB 

:!FJB>24ORE-9tHEN8-0:E-S:&a 



T18sP1.0n,J,-«W 



rt)20M 

1980 IFSCRN'XB, TB< J ) 032TKENE-E- I :S-S'l 

2980 NEXT I 

2010 IFJ-25THEN7503 

2858 IFBMTMENPL0T31. J," ":J-J.1!P 

LOT0, J, | :G0T0I28B 

2189 UAIT8:PL0T33. J," #■•* :UAIT ]0:PLOT 

35. J,' »»" ■UrtiTia:-'L0r37. J 

2299 J-J»l ^Goronee 

5808 REnt* FABRIC IDURS «* 

5801 CE*ll«r(Rt«[IJ*6W 

5882 CB-lNt(RW)[ll»8]'2:lFCB'CETMEM5892 

5885 PLOIl,2e,CB:PLOI2.2B,'ll I I I Nil llll 



9) :IF0!>9THENCU' 
9 

5848 FORI-8T032SIEP2 
5958 K-ltlNHftNOtl 1«2) 
5188 AL-13MMTIHW)Cn«ll)-0I*-1J 
5288 F0RJ-25'OAL«lSTEP-t 
5218 PLAri>2tnj,8.0,0 

5228 50'jnoi-nj,fiL«j,? 

5388 PLOTI,J,n»CK) 

5488 HE XI J 

5458 L = 1-INT(RN0(1)*2J 

5588 PL011,AL,I*(L) 

5688 NEXT J 

5658 IFS>RTM€H.ETR"S 

5668 IFrU>8TH£NS=0 

5678 PLAT1,8,8,0 

5338 RETURN 

6888 REn**TRftNSF CARACTlt :*1USIC1 , 7,4, 1 1 

6881 REPEAT:0.£AOB:LJNTIL8'12 

6888 HUSIC1, 1,1,1 

6883 nUSICl.7,4,11 

6818 F0Rl=ir022:READA 

0020 FORJ»1T08:REAOB 

6838 POKEA'J.8 

6848 NEXTJiI 

6845 RESTORE 

6058 RETURN 

7890 REf-**ECHEC»* 

7818 EXPLODE 

7812 FORL»ITOI0:UAITI0 

70 1 3 PAPERCB I IMKCE i ufl I T2 :PAPERCE < I WCB -f 



78)4 PAP£R3:iHKCE 

7915 riJ-8 

7828 F0RT=JT024 

7838 PLOf [.?, ', 

?B43 PLOT 1. 2, i. |. 1 :=LOT|.e,-*l,CE 

7058 PL0TI-3,r.l. urt* -IAIT5 

7860 NEXT 

7100 C£TA«:CLS:CiOT0388 

7598 REn»tGAGN£ii :-f-5-jj = 5 

7501 FORL = iaT0[95TEP3:°LOT2,i.,i:E-'<EXrL 

7503 PJ.0T15. 10, aRAUO!' :°L0T3, 13, APRES 
OUELQUES SECONOES OE REP1I 

7504 PL,0T3.I6,'"CUR LE PILOIE. *«OUS REPAR 
TONS* 

'585 Pi_0TI8, 19, AflELIORER LE SCORE. 

7506 REPEAT;REA0A:-1USIC1,4,«,7:UA!T3:UNT 

ILA-12;REST0RE 

7510 FORT-WTOl-ISSTEP-l 

7515 REAOfl:*!USJCl,S,A,7 

7520 1FT.I-2TMENJ-J.I 

7524 PL0Tl-4,24,7:'>L0Tia,2S,7:OL0n-|,25 

7525 PlOTTTWJ. 

7530 PLOTT, J-l, t- :JAIT15.-T-T:JJ"J-| 

7540 NEXT! 

7558 F0RT-1TO5 

7568 PLOTTT.JJ, v" :E"0Rn> 1 T05:MUSICI , 4, 3, 

7:dAIT2:r1USIC1,5,8,7:JAIT2: 

MExrn 

7S7B PLOTTT.JJ, 'V" :*-0flrWT05:'lUS!Cl,4,2, 

7--WA[72:nuSICl,5,B,7:UAIT2: 

SEX In 

7588 NEXTHRESTORE 

7598 F0RWTT01-2 

7592 R£A0A:-tUSIC].4,A,7 

7680 IFT=I-2THENJ=J-1 

760S PLOTTT.JJ,' " 

7B18 PLOTT, J - I , " k " ^A!T15:'T-TiJJ-J-l 

7620 NEXTT 

7625 PLOTTT.JJ, 

7626 f1J = ] IWAIT33 :»LOT!0,2S, 1 
7628 SOUMDI.20888,7 

7630 FnRr»|-lT02Sr£P-l :--LOTT,J, ' »■»»- 

7635 UAJT10 
7648 NEXT! 
7658 F0RL-19T019STEP3iPL0T3.L,- 

0T2,l, 1 

7668 HEXTL 

7635 JJ=J;W'I :H»0 

7780 F0RT-2T032STEP3 

7781 H-H*l 

7782 50UN01, 10080, 18 
7737 1FJ<*4TM£N??]? 
7715 IFH>"5THENJ"J-I 




7717 PLOTTF.jj,- 

7739 fCXTT 

7735 CLS^00TO99» 

8999 Tt(lJ*<>-.'»(2).-0- 

*]•• '«■!•■ <>• 't(2)»-(>* 

- . -«r7i--(r 

**3tM PETJT*. 

18999 DAT*3.8.3.9,J,8.3.6,3.3,3,»,J,9,3, 

9,6.1.6.1,5.1.6.1,9.5,3,5,5 

.3.5.3 

19991 D--TA12 

19910 OATA46S9],56.69.67,S2,63.63.31,« 

19929 0AT**6359,B.».B,B,63.63,83,37 

19039 0AIA46367. 63. 2,7. 63.83. 63. 63,3 

10040 0ATA46375, 63. 1.27.3,33.63.83.67 

18959 0ATA4693I, 69. ..33,57.39,37.3-1,1 

19989 0-tTA46Ef33. 31 ,|7, 17.31. 31. 17.17,31 

18979 0AIA46553.1.3.6.14.31.57.25.31 

18998 0ATA46S75,32,48.24,79,S2,39.3«,5? 



18939 0ATA46B97. 31. 10,19.31.31. 19. I 



,3] 



Bia 



DATA46373.62, IB, 19.62.92, 19,19.87 



19118 0ATA47871, 62. 34, 34, 67,62.34,34, 62 
18128 DATA47963,e,0.1,l,7.S,30,31 
13139 DATA47979.0, 9,32, 32.56.24. 39.62 
13210 0ATA46775, 74, 9.7,7, 7.7.3, | 
13229 0*TA46783,12.9,4B,49,4B,«B,32.8 
18238 OATA46673.12.12,0,3e,45,9.20.34 
18240 DAT*«6455. 12.45.33.39. 12, 12. 17.39 
18259 0ATA46815. 12, 12,0,30,45.45.12.38 
10260 OATA47031,0,14,31,63,62,69,6?,31 
10273 DATA47833.8,I,9,9,3,7,1S,63 
10298 0ATA46935.8.9.37. 16,0,52.59,37 
(B290 0ATA46943, 3, 8. 93. 18,83.50.38.83 9J 



VERIFY, T1T RAGE 

Ce programme COmprend deux routines en langage Apres avoir lance le programme avec RUN (si vous avez (ait une 

machine qui vous seront extremement utiles pour la erreurdansi'introductiondesdatasduiisting.ieprogrammevousie 
gestion du lecteur de cassette de votre ORIC. -S.'^-"^^^^ 

F , . . .,. , verify et TlTRAGE . Le programme utilise la possibilite de pro- 
La premiere routine permet de verifier que le pro- grammation de la louche "!". vous pouvez done effacer ie pro- 
gramme present en memoire centrale a bien ete enre- gramme basic (apres ravoir sauvegarde !) et les deux routines res- 
gistre sans erreur sur la cassette. La seconde routine tent presentes en haut de la memoire. 
affiche a Fecran les noms des programmes rencontres S^Tf ^ -r.^Tn'^^^M'J^^.rf^if hH'SI Zm* 

„.., i„ u„„^„ ™„„_a+:„..„ meme que pour CLOAD , mais il faut taper ! au lieu de CLOAD . 



sur la bande magnetique. 



N.GOULAMHOUSSEN 



xemple !"".S ou encore !"nom du programmi 
Pour la commande VERIFY, il esl egalement possible de verifier un 
bloc de memoire precis, par exemple : !""A20000, E30000. 
Si I'enregistrement est mauvais. le programme vous le signale par un 
ZAR La verification consiste en (ait en une comparaison entre la 
memoire centrale et la cassette: le programme a verifier doit done 
etreencoreen memoire centrale et la cassette rembobineejusquau 
debut du programme a verifier. 

Si la commande TlTRAGE est cnoisie, les noms des programmes 
enregistres sur la cassette s'affichent a I'ecran de haut en bas. Cette 
fonction doit etre arrStee avec un RESET. A 



RADIO 91.4 mhz 
RIVAGE CONTACT 



4 







•4 



'ir 



' anim£e par 
ciAU0E,aeNoiT 

Off ' • \ 



tt 

t; 



ECRAN MAGIQUE 



une emission sur la micro- informatique 
SANIEDI de 15h30 a 16H40 

votre radio locale 
850.17.74 



fl\G 



49Q 90T0469 
500 CLS 

510 PRINT :PR|NT:PRINI JPRIHt it'RIMT 

520 PRINT'POUR ACCEOER A CE1TE: COnnANOE" 

525 PRINT 

530 PRINT"tlTILISE2 I DE LA n£rt FACON Oil 

£ CLOAO" 

■549 END H 



160 DArA*4F , ME, *20, 14 l,a4£. ME, 155.140. 



5 CLS;-'WER3:INK1 

7 MirtEfH3659 

9 fJEH *** ROUTINE UERIF 

13 0ATA»A5,43A, 



33 QATA*e0,>A5.i33.iCS.i3C.iF3.i3F.l23,' 
04,>ES.I29, ■A3,lia,>A0,l97. 

B2a,iE0,>CB 

99 DATAi2a, «C7,»rA,ifl0,»A5.»34.«C5.«9D.i 
0.IOO,MC,ICE,*S6.*20,«04. 



> REM I 



I ROUTINE TlTRAGE i 



MC,«84 

28 QATA«96,i55, 

A8.iE5.«20,«76,"e5 

IE0.t)23 

33 DATAI30 I >E6,«C3 

29,439,»E6,I35.»50 

■F8,*20 

40 OATAf-ta.iEa.-^a 



-OB. 100 



C3 DA*AiA4,t 



DATA 



IA3, M4 , «A3, >37, 123. IEO, *CB, 160 

it* TABLE OES MESSAGES *«» 

123. «20, "54,M9,i54.»52,MI,i47, 



145 
13 DATAa23,i-B0,"-C,a4S,i45,*70,f2a,»56, 

65,a72,a69.a6a,a6a,a65,«2E 

■2E.39 

20 OArAi55.a55,aSS,*55,a0A,«20,a«O,«41, 

55.a56,a41,«49,a53,»28,a45 

HE, 192 

33 0ATAi45,M7,a49,»53,i54,a52,»4S,M0, 
45. «4E . 154 , »0A, »aa, a0A, «50 
M3.I32 

48 0ATAt49,l4e,a43,443,l41,a54,a43,*'IF, 
'0.145, 146, 446, "43. MS 

54 , -135 

■8 DATflf45.»45,a8A,aa8,a35."9A, 128, «36, 

".,»52.i43,«46.a49,i43.a41 

54, 149 



73 OAlAa2B,a0A,aCC 
85,>6C,aA9,aB8, 

aB5.a6Q.an9 

88 DATAa08.l85.l6E 
20,I63,IE5,«A3 



»A3.i 



aAA 



■E7 



■96.123 



,*A3,a2A 

220 0AIAa9i,«8C.tB5 

*E8,aC8.iC0,ni,aB0 



190 0AIA»76, 














aC9.a24.a08, 


«C9 


«A2 


109) 


■20 






.■33,a£6 














288 0ATAa95, 


ISO 


■CA 


■00. 


i'8. 


■20, 


130, »E6 
















,«35,a49 














210 DATA42B, 


tea 


■9? 


MC. 


■ 7B. 


'•J/ 


■EA.«EA 








UA8. 


iBfl 







.■38,«85 

263 0ATA«6E.»4C.i7B,«97.«EA.»EA 

303 F0RN'«9658T0a97FF:REAOA:' a OX£N.A:S*S' 

A:NEXT 

310 IFS-49387THtN4B8£LSE328 
328 PRINT SPRINT ^RIHT :AR1N1 ;PRJHT 
J33 PRINT-ATTENTION, IL r A OES ERREURS 
ANS UOS 0ATAS;RECT!F!E2 LES 

J43 PRINT'DE C0NT1SUER' 

338 ENO 

490 PRINT :PRINT :BR1NI :PR[IIT 

4]0 PRINT" U0ULE2 UOUS LA COmWNOE 

428 PRINT :PRlNT;PR!Nr:PRINT 

438 PRINT-iiERIFT -> U* 

435 PfllNl iPRlNT^PRINT 

■140 PRINT' TlTRAGE -» T* 

468 GETA* 

473 IFA«- "g- It.ENDQKE"02F5.a9O58;&OTO580 

403 irnt-' I' lHENDOK£4fl7f3.a9768:GOTO308 




HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AUTARIFPREFERENTIELDE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS 

NOM: MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: □ CHEQUE QCCP 



LE LOGICIEL 
DE LASEMAINE 



COURRIER 
DES LECTEURS 



LE MANOIR 
DU DOCTEUR 
GENIUS 

SURORIC1, 

CASSETTE ENVIRON 
140.00 FRANCS 




Le dernier-ne de la sene de cas- 
settes pour ORIC 1 presente par 
LORICIELS est une reussite to- 
tale Ce jeu d'aventure vous 
propose la decouverte d'une 
demeure a I'aspect peu 
engageant le manoir du Doc- 
teurGENIUSSuivantlepnncipe 
des ieux de roles - type donjons 
et dragons- vous devrezfaire fa- 
ce a de nombreux obstacles et 
decouvrjf les multiples astuces 
qui vous permettront d'acceder 
au tresor en epargnant votre vie. 
Le programme presente le dou- 
ble interet de posseder un gra- 
phisme tres elabore (toutes les 
pieces sont dessmees en pers- 
pective) et d'utiliser des com- 
mandes en francais, une hste de 
63 instructions accompagnanl 
la cassette. Vous aurez amsi une 
vision reelle de la salle exploree 
el de son mobilier ainsi que 
I'inventaire sommaire des objets 
qu'elle recele (couteaux. tor- 
ches eleclriques, livres, bri- 
quets, etc.). 

A tout moment, II vous faudra 
prendre les decisions concer- 
nant la direction envisagee, la 
possession. I'utilisation ou 
I'abandon des objets decou- 
verts sur le parcours. 



Vos actions sont effectuees au 
moyen destructions de un ou 
deux mots Si par exemple, vous 
desirez inspecter le contenu 
d'un placard situe dans la buan- 
dene. il vous suflit d'ecrire- 
"OUVRE PLACARD" 

Les reponses un peu lentes n'at- 
tectent en rien la qualite de ce 
jeu qui demanrJe avant tout de la 
reflexion et une indispensable 
bonne humeur. 

Au cours des parties, le joueur 
acquiert une connaissance de 
plus en plus precise de la dispo- 
sition des pieces et des dangers 
encourus. 

Ce n est qu'au terme de longues 
heures de recherche que vous 
apercevrez le bout de I'epreuve 
car I'immense manoir s'eleve sur 
trois niveaux et le moindre re- 
coin est hante par des creatures 
aussi mysterieuses qu'impres- 
sionnantes. D'ailleurs, le plus 
souvent, une splendide marche 
mortuaire et un cercueil de che- 
ne massif seront les seules re- 



Prenez votre mal en patience ! 



Dans le n a 4. le programme 
"LABYR1NTHE" de Marc LE HEN 
peut etre amehore de la facon 
suivante 

Le test de la hgne 37007 est in- 
completsiZZ (compteur) est 
superieur a Z (niveau de ieu). 
I'ordinateurne tient pluscompte 
du niveau. ie propose done la li- 
gne supplemental 

37006 IF ZZ > Z then ZZ - Z 

On peut aussi remplacer le 
contenu des Iignes2l 20. 31 20et 
4120 par des GOTO 1120. 

Enfin. il serait bon qua chaque 
fois qu'une carte est presentee. 
nous sachions ce qu'il nous res- 
te 'en slock": 

37008 PRINT "IL RESTE" ; Z-ZZ- 
1 ; "CARTE"; 

37009 IF Z-ZZ-1 > G THEN 
PRINT "S". 



C. GONDELMANN 



Bravo au "MAGIBRIQUE" de Gi 
bert MAGGIO du n" 2 d'HEBDO 
GICIEL, le graphisme et la pre- 
sentation sont formidables 
Cependant. on pourrait lu 



MimMv'««31-12-«3 ! 
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Dur« en ouv«i dc 9 h 30 
» » h., do VUrdi ju 
S*mcdi. 1)2. Bd Si.ii- 
Ccmuin. *■. M* Odeon. 



Banc d'essai Duriez 
des 20 micro- 



24 pages. Envoi conire 3 tim- 
bres. Utitisez le Bon ci- 
dessous (gratuit au magasin) 
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400 micro-prix-charter 
en direct chez Duriez 
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procher le deplacement de la 
raquette a laide du clavier et 
lumque balle de chaque joueur 
Afin de remedier a ces deux pe- 
tits delauts. j'ai modifie le pro- 
gramme pour jouer avec les 
manettes el donner 5 balles 3 
chaque joueur J'ai aussi ajoute 
un compteur de banes et ('enga- 
gement par le bouton "Fire" 
Les lignes a ajouler ou a modi- 
fier sont les suivantes 

695 DISPLAY AT (20.1 ) SIZE (13) 

"NB BALLES _ .5-N 

740 (debut ligne mchange) 

SIZE (8) :"(F1RE)" 

750 CALL KEY (l.K.S) 

1280CALLJOYST(1.X.Y) IFX 

-* AND Y = THEN 1310 

1 290 IF K - -4 AND... (fin ligne In- 

changee) 

I300IFK = 4AND . (tin ligne m- 

changee) 

2170N = N + 1 :!FN< 5 THEN 

680 

2175N = NEXT II 

2177 DISPLAY AT (20,1) SIZE 

(13) ;"NB BALLES ;0- 

D'autre part, je pense que re- 
version des lignes 680 el 690 ac 
eelere ('initialisation de I'ecran. 

daniel DELAUTRE 



Voici quelques trues pour COM- 
MODORE 64 

. 
(FCE 2) 

Pour I autodemarrage dune 
ROM ou EPROM (cartouche), il 
laut q^e les adress-~ 
contiennent !es donnecs mdi- 
quees 



ADHESSE 


DONNEE 


S800J 


SC3 


S8005 


SC2 


SSO06 


SCO 


SS007 


S33 


S8008 


S30 



DanslecasoutoutL:- 
ses conliennent les aonnccs 
indiquees. le programme com- 
mencera a I'adresse indirecte 
contenue en S 8000 

Alain NOURY 




PETITES ANNONCES 
GRATUITES 




Echange programmes TRS80. 
nombreux choix. Possede jeux 
utilitalres. maths Attends re- 
ponses £crire 0. NEROT 4, rue 
Duguay-Troum - 29200 BREST, 
ou tel.: 16 (98) 44.71.76- (98) 
80.1843. 

Vends VIC 20+ Extension 16ko 
+ adaptateur N/B -t- livres + pro- 
grammes sur cassette, le tout 
1800 F. Malcriel acheto neuf le 
1 1/82 C. ROUSSELLE 5. rue de 
Chateaudun - 28200 THIVILLE. 
T6I.(37) 45.50.01 

Vends, pour ORIC 1, interface 
Secam couleur LX 50, achetee 
le 4/07/83. Pratiquement jamais 
utilisee. Etat neuf. Prix 
310 francs. Ecme L. PERZO 25. 
rue Marcel-Sembat - 78140 
VELIZY. 

Vends SHARP PC 1 500 avec CE 
150 (interface imprtmante/K7) 
+ CE 154 (4 ko RAM) + DOC + 
papier + stylo pour Imprimante 
+ mallette de transport. 2800 F 
le tout. M. LANGLOIS 15, bd L6- 
nlne • 93290 TREMBLAY. Tel. 
203 41 28, poste 322/323 

Vends pour ZX 81 carte CHRS 
OS + 2 K7 : 350 F. Carte sonore 
W. STUART + K7 : 300 F. Nbreux 
Soft sur K7, revue ORDI-5 + 
echo SINCLAIR + livres + SIN- 
CLAIR USER 13 n°' + revues 
anglaises. Llste sur demande si 
onveloppe limbree Michel LAN- 
GLOIS 15. bd Lenine ■ 93290 
TREMBLAY. Tel. 203.41 .28, posto 
322/323. 

Possede plus de 140 program- 
mes pour PC 1500 venant do 
France et aussi des USA. Possd- 
de egalcment 34 pages sur le 

L.M du PC 1500 dont 12 vonant 
des USA inftritts en France et 
crjmplelont In connnissanco du 
LH5801 F BOUQUET, ruo de la 
Joatorio - 42160 BOUTHEON. 

Etudiant rechercho tous pro- 
grammes pour VIC 20 (6ducatif 
+ jouxj. Retour des documents 
assure. Ecrire a HELL VINCENT 
1, rue del'lll- 68560 HIRSINGUE. 

Achate apple ii environ 3000 F 
Participation aux fniis de port 
Ecnre a HELL VINCENT 1,ru« de 
nil -68560 HIRSINGUE. 



Cherche poss d'ORIC 1.TRS80 
MOD 1 . APPLE II pour echanges 
programmes Possede nom- 
breux programmes machine 
Ecrivez-moi vite M EUGENE 19. 
rue de la Gare - 57160 Moulins- 
les-Metz. R6ponse assuree. 

Vends V1DEOGENIE EG 3003 
1 6 K tres bon etat avec revue 01 
micro syst + livre TRS. nom- 
breux programmes (PACMAN. 
METEOR); pnx 2200 F. COU- 
LON 107. rue des 3-Territoires - 
94 VINCENNES. T6I. 876.53.63. 

Echange plus de 200 program- 
mes pour Tl. liste contre 2 tim- 
bres VEKRIS 25, rue Poul- 
Barrvel - 75015 PARIS- 

Echange programmes pour 

SPECTRUM. LIOKARIS Michel 6. 
rue d Oradour - LUXEMBOURG 

Lyceen vend NEW BRAIN AD 
AZERTY (1/83) complel avec 
programmes, en parfait etal- 
2400F. ABGRALL, maison fores- 
tiere, rue Jean-Mouhn - 65260 
PIERREFITTE 

Tl 99/4 A trss gourmand recher- 
che nombreux programmes 
pour son appetit grandissant. 
Reponse assuree S PIGUET 
82. rue du Bois-Hardy - 44100 
NANTES. 

Cause achat ORIC 1. vends 
HP 41 CV. etat neuf + numeros 
de KEY-NOTES Prix 1700 F 
FOUOUET Eric 1 2. Square Saint- 
Dominiquo 8530DCHALLANS. 

Utilisatour TO 7, enseignant, 
cherche contacts pour echan- 
ges par correspondence de pro- 
grammes d'o.iboignement (tou- 
tes matieresjoi dejeuxenrsgis- 
tros sur casseitos et de petitos 
astuces de progrnmmalion 
Alfred DUMEN, BP 88, 10. ruo 
du 13-Juin ■ 40800 AIRE-SUR- 
L'ADOUR. 

Vends ordinatEtur dejeu Intellft- 
vision I 10 r;. i ,:m ■!!..".., juin 83. 

?:'Ai<> v- .hi iimii fir- it/ooi Vi'iHi', 
ordfnataur trochees morphy, 
annee 8i . 500F au lieu do 1 800 F 
A SOULIE DE MORANT 26 bis, 
n.i-' d..-, [■'.■ii ( jli-;r.'i -92100 BOU- 
LOGNE Tel 620.34 89 ou 
621 5563 



